的表格輸入等都是使用TableControl控件，本章主要介紹：MODULESTATUS_0100. 主程序DATA:OK_CODETYPE SAVE_OKLIKEOK_CODE.*DATASP1LIKESPFLIOCCURS0WITHHEADERLINE.DATASP1LIKETABLEOFSPFLIWITHHEADER CALLSCREEN100. SAVE_OK=OK_CODE.CASEWHENMODULESTATUS_0100OUTPUT.圖7-1所示.。7-7-7-7-7-controlheaders7-7-7-7-7-LOOPATSP1PROCESSAFTERINPUT.LOOPATSP1.FIELDSP1-CARRID.FIELDSP1-CONNID.FIELDSP1-CITYFROM.FIELDSP1-AIRPFROM.FIELDSP1-CITYTO.FIELDSP1-AIRPTO.FIELDSP1-FLTIME.FIELDSP1-DEPTIME.FIELDSP1-ARRTIME.FIELDSP1-DISTANCE.FIELDSP1-DISTID.FIELDSP1-FLTYPE.FIELDSP1-PERIOD.MODULETBL2_MODIFYONCHAIN-REQUEST.*MODULE 主程序REPORTDATA:OK_CODETYPE SAVE_OKLIKEOK_CODE.*DATASP1LIKESPFLIOCCURS0WITHHEADERLINE.DATASP1LIKETABLEOFSPFLIWITHHEADERLINE.SELECT*INTOCORRESPONDINGFIELDSOFTABLESP1FROM*LOOPAT*WRITE:/SP1-CARRID,SP1-CALLSCREEN MAND_0100INPUT.SAVE_OK=OK_CODE.CLEARWHENLEAVEwhen MAND_0100MODULESTATUS_0100OUTPUT.SETPF-STATUS CONTROLS:TBL2TYPETABLEVIEWUSINGSCREENMODULETBL2_CHANGE_TC_ATTROUTPUT.DESCRIBETABLESP1LINESTBL2-lines.MODULETBL2_MODIFYINPUT.MODIFYSP1建，如圖7-12所示。7-7-13所示。7-7-7-7-PROCESSBEFOREOUTPUT.MODULELOOPWITHCONTROLMODULEPROCESSAFTERLOOPWITHCONTROLMODULE REPORTDATA:OK_CODE SAVE_OK *DATASP2LIKESPFLIOCCURS0WITHHEADERLINE.DATASP2LIKETABLEOFSPFLIWITHHEADERLINE.DATASP1TYPESPFLI.SELECT*INTOCORRESPONDINGFIELDSOFTABLESP2FROMCALLSCREENCONTROLSTBL1TYPETABLEVIEWUSINGSCREENLOOPATSP2.WRITE:/SP2-CARRID,SP2-CONNID,SP2-COUNTRYFR,SP2-CITYFROM. ModuleSTATUS_0100 MODULESTATUS_0100OUTPUT.SETPF-STATUS "STATUS_0100*MAND_0100** MAND_0100INPUT.SAVE_OK=OK_CODE.CLEARCASEWHENLEAVETOSCREEN MAND_0100 ModuleFILL MODULEFILLTBL1READTABLESP2INTOSP1INDEXTBL1-CURRENT_LINE. "FILLOUTPUT ModuleREAD MODULEREADTBL1MODIFYSP2FROMSP1INDEXTBL1- "READ7-7-7-SETPF-STATUS‘STATUS1’.IFNUMS=0.TBL1-LINES=NUMS.通過系統(tǒng)生成數(shù)據(jù)表程序TCODE：SE55，通過系統(tǒng)數(shù)據(jù)功能使用生成程（TCODE：SM30（SE11（SE55，（SM307-7-7-7-7-7-7-REPORTYTEST23CALLFUNCTION'VIEW_MAINTENANCE_CALL' = = = =.IFSY-SUBRC<>MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.7-GETCURSORLINELINEA.CHECKSY-SUBRC=0.*LINEA=TBLA-TOP_LINE-READTABLEWA_FPFLIINDEXMESSAGES005(YMESS)WITHWHENLOOPATTBL1-COLSINTOACOLWHEREINDEXGTIFSY-TABIX=ACOL-SCREEN-INPUT=IFACOL-SCREEN-INPUT='0'.ACOL-SCREEN-INPUT='1'.ELSEIFACOL-SCREEN-INPUT=ACOL-SCREEN-INPUT='0'.MODIFYTBL1-COLSFROMACOLINDEXSY-圖7-圖7-PROCESSBEFORE*&SPWIZARD:PBOFLOWLOGICFORTABLECONTROL'TBL1'MODULETBL1_CHANGE_TC_ATTR.*&SPWIZARD:MODULETBL1_CHANGE_COL_ATTR.LOOPAT WITHCONTROLCURSORTBL1- *MODULE*PROCESSAFTER*&SPWIZARD:PAIFLOWLOGICFORTABLECONTROL'TBL1'LOOPATSP1.FIELDSP1-CARRID.FIELDSP1-CONNID.FIELDSP1-CITYFROM.FIELDSP1-AIRPFROM.FIELDSP1-CITYTO.FIELDSP1-AIRPTO.MODULETBL1_MODIFYONCHAIN-REQUEST.*&SPWIZARD:MODULE*&SPWIZARD:MODULETBL1_CHANGE_COL_ATTR.MODULECANCELAT REPORTYTEST25DATA:OK_CODE SAVE_OK DATA:SP1LIKETABLEOFSPFLIWITHHEADERLINE,DELA_SPFLILIKETABLEOFSPFLIWITHHEADERLINE.DATALINEATYPE*&SPWIZARD:DECLARATIONOFTABLECONTROL'TBL1'ITSELFCONTROLS:TBL1TYPETABLEVIEWUSINGSCREEN0100.DATAWA1LIKESELECT*FROMSPFLIINTOCORRESPONDINGFIELDSOFTABLESP1.CALLSCREEN100.*&SPWIZARD:OUTPUTMODULEFORTC'TBL1'.DONOTCHANGETHIS*&SPWIZARD:UPDATELINESFOREQUIVALENTSCROLLBARMODULETBL1_CHANGE_TC_ATTROUTPUT.DESCRIBETABLESP1LINESTBL1- "TBL1_CHANGE_TC_ATTR*&SPWIZARD:INPUTMODULEFORTC'TBL1'.DONOTCHANGETHIS*&SPWIZARD:MODIFYTABLEMODULETBL1_MODIFYINPUT.MODIFYINDEXTBL1-* * MODULESTATUS_0100OUTPUT.SETPF-STATUS "STATUS_0100 ModuleCANCEL MODULECANCEL "CANCEL MAND_0100 MAND_0100INPUT.SAVE_OK=OK_CODE.CLEARCASEWHENLEAVETOSCREENWHENMODIFYSPFLIFROMTABLESP1.IFSY-SUBRCNE0.MESSAGEI005(YMESS)WITHMESSAGEI005(YESS)WITHDELETESPFLIFROMTABLEDELA_SPFLI.IFSY-SUBRCNE0.MESSAGEI005(YMESS)WITHMESSAGEI005(YESS)WITHWHEN'DELA'.GETCURSORLINELINEA.CHECKSY-SUBRC=0.LINEA=TBL1-TOP_LINE+LINEA-1.READTABLESP1INDEXLINE