included into this program once, the -IFUNIQUE causes this -MAGECINC to be bypassed. | ``` ** * * * REQUEST AREA FOR SPOOLER * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SPLRQ-C,COPY * * * * MAGEC TP SPOOLING REQUEST AREAS. * * * * 52-BYTE REQUEST PARAMETER AREA FOLLOWED BY * * 132-BYTE "PRINT-LINE" AREA. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 03 SPOOL-REQUEST-AREA. 05 SR-CMD PIC X(05). 88 SR-START-CMD VALUE 'START'. 88 SR-END-CMD VALUE 'ENDIT'. 88 SR-SPOOL-CMD VALUE 'SPOOL'. 88 SR-ABORT-CMD VALUE 'ABORT'. 05 SR-DESC PIC X(30). 05 SR-LOCATION PIC X(03). 05 SR-CLASS . 07 SR-CLASS-N PIC 9(01). 05 SR-DISPOSITION PIC X(01). 88 SR-FLUSH VALUE 'F'. 88 SR-HOLD VALUE 'H'. 88 SR-DELETE VALUE 'D'. 88 SR-LEAVE VALUE 'L'. 88 SR-KEEP VALUE 'K'. 05 SR-FORM PIC X(04). 05 SR-COPIES-X. 07 SR-COPIES PIC 9(02). 05 SR-REPORT-NO . 07 SR-REPORT-NO-N PIC 9(04). 05 SR-RET-COD PIC X(01). 88 SR-OK VALUE SPACE. 88 SR-BAD-REQUEST VALUE 'B'. 88 SR-RPT-NOT-STARTED VALUE 'S'. 88 SR-SPL-FILE-FULL VALUE 'F'. 88 SR-IO-ERROR VALUE 'I'. 88 SR-BAD-LOCATION VALUE 'L'. 88 SR-BAD-CLASS VALUE 'C'. 88 SR-BAD-DISPOSITION VALUE 'D'. 88 SR-BAD-NR-COPIES VALUE 'N'. 88 SR-INTERNAL-ERROR VALUE 'E'. 05 SR-NEW-PAGE PIC X(01). 88 SR-NEW-PAGE-NUMERIC VALUE '0' THRU '9'. 88 SR-WRITE-AFTER-TOP VALUE 'T' '0'. 88 SR-WRITE-AFTER-1 VALUE '1'. 88 SR-WRITE-AFTER-2 VALUE '2'. 88 SR-WRITE-AFTER-3 VALUE '3'. 88 SR-WRITE-AFTER-4 VALUE '4'. 88 SR-WRITE-AFTER-5 VALUE '5'. 88 SR-WRITE-AFTER-6 VALUE '6'. 88 SR-WRITE-AFTER-7 VALUE '7'. 88 SR-WRITE-AFTER-8 VALUE '8'. 88 SR-WRITE-AFTER-9 VALUE '9'. 05 SR-PRINT-LINE. 07 SR-BYTE OCCURS 132 TIMES PIC X(01). ```** The above area is used to communicate to the MAGEC TP Spooler. It is used whenever the Operator uses the Hardcopy key (cont.) (PF13 or Shift-F3), or when your customization desires to spool report data. Refer to the "TP Spooler" chapter for more (cont.) information. | ``` ** 03 FILLER REDEFINES SPOOL-REQUEST-AREA. * * * * * VARIABLE STORAGE FIELDS FOR VERZUN FUNCTION * * * * **************************************************************** ** * THESE FIELDS USED BY THE MODELMMP WHEN FETCHED * * FOR THE MAGEC SYSTEM 'VERZUN' FUNCTION * **************************************************************** ** 05 VS-VERZUN-VARSTOR. 10 VZN-MSK PIC X(03). 10 VZN-MSK-VERSION PIC 9(9). 10 FILLER REDEFINES VZN-MSK-VERSION. 15 VZN-VERSION-MM PIC X(02). 15 VZN-VERSION-DD PIC X(02). 15 VZN-VERSION-HR PIC X(02). 15 VZN-VERSION-MIN PIC X(02). 15 VZN-VERSION-SEC PIC X(01). 10 VZN-MSK-CURR-SW PIC X(01). 10 VZN-COMPILE-DATE PIC X(08). 10 VZN-PGMS-ELEMENTS. 15 VZN-ELEMENT1 PIC X(06). 15 VZN-ELEMENT2 PIC X(06). 15 VZN-ELEMENT3 PIC X(06). 15 VZN-ELEMENT4 PIC X(06). 15 VZN-ELEMENT5 PIC X(06). 15 VZN-ELEMENT0 PIC X(06). 10 VZN-PGMS-ELEMENT-TBL REDEFINES VZN-PGMS-ELEMENTS. 15 VZN-PGMS-TABLE OCCURS 6 TIMES. 20 VZN-ELEMENT PIC X(05). 20 FILLER PIC X(01). 10 VZN-COMPILE-TIME PIC X(08). 10 FILLER PIC X(119). ```** The above fields are used to support the VERZUN function which allows you to determine the status and version numbers (cont.) and statistics for your application. To do that for this application you would enter the online (cont.) command: VERZUN MSK600 from the MAGEC command line | ``` ** 02 MSK652 REDEFINES TWA-STRT. 03 FILLER PIC X(274). 03 MSK652-SMSKAREA. 05 MSK652-SCREEN-HEADER PIC X(10). 05 MSK652-SERRMSGG. 07 MSK652-SERRMSGS. 09 FILLER PIC X(0001). 09 MSK652-SERRMSG-POSN PIC S9999 COMP. 09 FILLER PIC X(0001). 07 MSK652-SERRMSGA PIC X(0001). 07 MSK652-SERRMSG PIC X(0240). 05 MSK652-SFUNCTG. 07 MSK652-SFUNCTS. 09 FILLER PIC X(0001). 09 MSK652-SFUNCT-POSN PIC S9999 COMP. 09 FILLER PIC X(0001). 07 MSK652-SFUNCTA PIC X(0001). 07 MSK652-SFUNCT PIC X(0006). 05 MSK652-SKEYG. 07 MSK652-SKEYS. 09 FILLER PIC X(0001). 09 MSK652-SKEY-POSN PIC S9999 COMP. 09 FILLER PIC X(0001). 07 MSK652-SKEYA PIC X(0001). 07 MSK652-SKEY PIC X(0031). 05 MSK652-SCOMPLG. 07 MSK652-SCOMPLS. 09 FILLER PIC X(0001). 09 MSK652-SCOMPL-POSN PIC S9999 COMP. 09 FILLER PIC X(0001). 07 MSK652-SCOMPLA PIC X(0001). 07 MSK652-SCOMPL PIC X(0040). 05 MSK652-SDOTMSKG. 07 MSK652-SDOTMSKS. 09 FILLER PIC X(0001). 09 MSK652-SDOTMSK-POSN PIC S9999 COMP. 09 FILLER X(0001). 07 MSK652-SDOTMSKA PIC X(0001). 07 MSK652-SDOTMSK PIC X(0079). 05 MSK652-SHDGG. 07 MSK652-SHDGS. 09 FILLER PIC X(0001). 09 MSK652-SHDG-POSN PIC S9999 COMP. 09 FILLER PIC X(0001). 07 MSK652-SHDGA PIC X(0001). 07 MSK652-SHDG PIC X(0079). 05 MSK652-SLISTG. 07 MSK652-SLISTS. 09 FILLER PIC X(0001). 09 MSK652-SLIST-POSN PIC S9999 COMP. 09 FILLER PIC X(0001). 07 MSK652-SLISTA PIC X(0001). 07 MSK652-SLIST PIC X(1359). 07 FILLER REDEFINES MSK652-SLIST. 09 MSK652-QTR-LINE OCCURS 64 TIMES PIC X(20). 07 FILLER REDEFINES MSK652-SLIST. 09 MSK652-SLINE OCCURS 16 TIMES. 11 MSK652-SLINE-SHORT PIC X(79). 11 FILLER PIC X. 05 MSK652-SSARGLTG. 07 MSK652-SSARGLTS. 09 FILLER PIC X(0001). 09 MSK652-SSARGLT-POSN PIC S9999 COMP. 09 FILLER PIC X(0001). 07 MSK652-SSARGLTA PIC X(0001). 07 MSK652-SSARGLT PIC X(0011). 05 MSK652-SSEARCHG. 07 MSK652-SSEARCHS. 09 FILLER PIC X(0001). 09 MSK652-SSEARCH-POSN PIC S9999 COMP. 09 FILLER PIC X(0001). 07 MSK652-SSEARCHA PIC X(0001). 07 MSK652-SSEARCH PIC X(0066). ```** All the standard Browse Functions use the same Mask, MSK652. Above is the portion of the MSK652 copybook which actually (cont.) redefines TWA-MSK-DETAIL. It has all the data fields and control fields for the LOC, SCN, and FND Functions screens. (cont.) Notice that, just like in all other Masks, the standard screen fields SERRMSG, SFUNCT, SKEY, and SCOMPL are defined at (cont.) the beginning. They always occupy the same place on the screen and the same place in the TWA. The rest of the data (cont.) fields are organized in order of their data names, not in the order they occupy on the screen. | ``` ** 02 MSK652-PARMS REDEFINES TWA-STRT. 03 FILLER PIC X(2778). 03 FILLER PIC XX. 03 FILLER. 05 MSK652-SPARM001. 07 FILLER PIC X(0005). 07 MSK652-SERRMSGE PIC X(0001). 07 FILLER PIC X(0003). 07 FILLER PIC X(0006). 05 MSK652-SPARM002. Next: https://magec.com/DOC/markdown/genmmp06.md.txt