&LAB     PROC  &M,1,&RCSZ=,&BIN=,&FIELD=,&RSOC=,&DROC=,&STOR=,&IN=,&OUTCMR$00010
               =,&FIN=,&TAPES=,&SHARE=,&RESERV=,&DISC=,&PAD=,&ADTABL=,&CMR$00020
               AUTO=,&DOEXT=,&DOA=,&DOM=,&DOF=,&RESUME=,&REDO=,&NOCKSM=XMR$00030
               ,&CSPRAM=,&MERGE=,&USEQ=,&ADDROUT=,&CALC=,&SIZE=,&PRINT=XMR$00040
               ,&SEL=                                                   MR$00050
MA#P14   NAME                                                           MR$00060
MR$PRM   NAME           .SORT PARAM TABLE GENERATE           . 01/10/73 MR$00070
MR#PRM   NAME                                                           MR$00080
         LCL   &AL1,&AL2,&AL3,&AL4,&AL5,&AL6,&BL1,&CL1,&Z,&Y            MR$00090
         LCL   &A,&B,&I,&I2,&I3,&I4,&I5,&AL,&AS,&A0,&J,&X,&C,&D,&JE     MR$00100
         LCL   &AA1,&AA2,&CC,&CC1,&X1,&CCD1,&CCD,&RECS                  MR$00110
         LCL   &J1,&J2,&J3,&J4                                          MR$00120
&AL1     SET    0                                                       MR$00130
&AL2     SET    0                                                       MR$00140
&AL3     SET    0                                                       MR$00150
&AL4     SET    0                                                       MR$00160
&AL5     SET    0                                                       MR$00170
&AL6     SET    0                                                       MR$00180
&BL1     SET    0                                                       MR$00190
&CL1     SET    0                                                       MR$00200
&Z       SET    0                                                       MR$00210
&Y       SET    0                                                       MR$00220
&A       SET    0                                                       MR$00230
&B       SET    0                                                       MR$00240
&I       SET    0                                                       MR$00250
&I2      SET    0                                                       MR$00260
&I3      SET    0                                                       MR$00270
&I4      SET    0                                                       MR$00280
&I5      SET    0                                                       MR$00290
&AL      SET    0                                                       MR$00300
&AS      SET    0                                                       MR$00310
&A0      SET    0                                                       MR$00320
&J       SET    0                                                       MR$00330
&X       SET    0                                                       MR$00340
&C       SET    0                                                       MR$00350
&D       SET    0                                                       MR$00360
&JE      SET    0                                                       MR$00370
&AA1     SET    0                                                       MR$00380
&AA2     SET    0                                                       MR$00390
&CC      SET    0                                                       MR$00400
&CC1     SET    0                                                       MR$00410
&X1      SET    0                                                       MR$00420
&CCD1    SET    0                                                       MR$00430
&CCD     SET    0                                                       MR$00440
         CNOP  0,4                                                      MR$00450
&LAB     DS    0F                                                       MR$00460
         DO    '&STOR'>''              . $T STOR ABSENT                 MR$00470
         DC    X'07'               . $P GEN. STOR 07-ADDR , FF-BYTES    MR$00480
         DO    '&STOR'(1,1)='('                                         MR$00490
&J1      SET   '&STOR(1)'                                               MR$00500
&J2      SET  '&STOR(2)'                                                MR$00510
         DO    '&STOR(1)'=''                                            MR$00520
&J1      SET   0                        .SET TO 0 IF NULL STRING        MR$00530
         ENDO                                                           MR$00540
         DO    '&STOR(2)'=''                                            MR$00550
&J2      SET   0                        .SET TO 0 IF NULL STRING        MR$00560
         ENDO                                                           MR$00570
         DC    AL3(&J1)                                                 MR$00580
         DC    X'FF'                                                    MR$00590
         DC    AL3(&J2)                                                 MR$00600
         ENDO                                                           MR$00610
         DO    '&STOR'(1,1)='('=0                                       MR$00620
&J1      SET   '&STOR'                                                  MR$00630
         DO    '&STOR'=''                                               MR$00640
&J1      SET   0                        .SET TO 0 IF NULL STRING        MR$00650
         ENDO                                                           MR$00660
         DC    AL3(&J1)                                                 MR$00670
         DC    X'FF000000'                                              MR$00680
         ENDO                                                           MR$00690
         ENDO                                                           MR$00700
&A       SET   0                                                        MR$00710
&Y       SET   0                                                        MR$00720
         DO    '&RCSZ'>''          . $T RCSZ ABSENT                     MR$00730
&RECS    SET   '&RCSZ'                                                  MR$00740
         DO    (&RCSZ<01)++(&RCSZ>32767)                                MR$00750
         PNOTE 'P','RCSZ, &RCSZ INCORRECT.  0 < RCSZ < 32768'           MR$00760
         ENDO                                                           MR$00770
         DC    X'0800'                                                  MR$00780
         DC    AL2(&RCSZ)                                               MR$00790
&A       SET   1                                                        MR$00800
         ENDO                    . $T BIN ABSENT                        MR$00810
         DO    '&RCSZ'=''               .TEST FOR MISSING RCSZ          MR$00820
&RECS    SET   0                                                        MR$00830
         ENDO                                                           MR$00840
         DO    '&BIN'>''           . $A NO YES,NXTKEY                   MR$00850
&Y       SET   1                                                        MR$00860
         DC    X'0A00'             . $P CHECK, GEN  0A-BYTES            MR$00870
         DO    '&BIN'(1,1)='('                                          MR$00880
&J1      SET  '&BIN(1)'                                                 MR$00890
         DO    '&BIN(1)'=''                                             MR$00900
&J1      SET   0                                                        MR$00910
         ENDO                                                           MR$00920
         DO    ('&J1'<'1')++('&J1'>'16383')++((&A=1)**('&J1'>'&RECS'))  MR$00930
         PNOTE 'P','BIN, &J1  VALUE ERROR OR INCONSISTENT WITH RCSZ'    MR$00940
         ENDO                      . $A NO YES,NXTKEY                   MR$00950
&C       SET   &J1                                                      MR$00960
         DC    AL2(&J1)                                                 MR$00970
         DO    (N'&BIN)/2          . $A NO YES,NXTKEY                   MR$00980
&I       SET   2+&I                                                     MR$00990
&J2      SET  '&BIN(&I)'                                                MR$01000
         DO    '&BIN(&I)'=''                                            MR$01010
&J2      SET   0                        .SET TO 0 IF NULL STRING        MR$01020
         ENDO                                                           MR$01030
&JE      SET   (''='&BIN(&I)')++('&J2'<'&J1')++(&A**('&J2'>'&RECS'))    MR$01040
         DO    ('&J2'>'32767')++&JE                                     MR$01050
         PNOTE 'P','SIZE, &J2 INCONSISTENT WITH MIN-BIN OR RCSZ.'       MR$01060
         ENDO                                                           MR$01070
&J       SET   1+&I                                                     MR$01080
&J3      SET  '&BIN(&J)'                                                MR$01090
         DO    '&BIN(&J)'=''                                            MR$01100
&J3      SET   0                        .SET TO 0 IF NULL STRING        MR$01110
         ENDO                                                           MR$01120
         DO    (''='&BIN(&J)')++('&J3'<'0')++('&J3'>'100')              MR$01130
         PNOTE 'P','VOL, &J3 NOT WITHIN LIMITS. -1 < VOL < 101'         MR$01140
         ENDO                                                           MR$01150
         DC    X'FF'               . $P CHECK SIZE NE 0, GE MIN BIN     MR$01160
         DC    PL3'&J2'                                                 MR$01170
         DC    X'FF'                                                    MR$01180
         DC    PL3'&J3'                                                 MR$01190
         ENDO                                                           MR$01200
         ENDO                                                           MR$01210
         DO    '&BIN'(1,1)='('=0                                        MR$01220
         DO    ('&BIN'<'1')++('&BIN'>'32767')++((&A=1)**('&BIN'>'&RECS'XMR$01230
               ))                                                       MR$01240
         PNOTE 'P','BIN, &BIN VALUE ERROR OR INCONSISTENT WITH RCSZ.'   MR$01250
         ENDO                                                           MR$01260
&C       SET   &BIN                                                     MR$01270
         DC    AL2(&BIN)                                                MR$01280
         ENDO                                                           MR$01290
         ENDO                                                           MR$01300
         DO    '&FIELD'>''         . $T FIELD ABSENT                    MR$01310
         DO    N'&FIELD<2          . $A NO YES,NXTKEY                   MR$01320
         PNOTE 'P','MINIMUM PARAMETERS FOR FIELD NOT PRESENT.'          MR$01330
         ENDO                                                           MR$01340
&I       SET   1                   . $P CHECK MIN PARAMS PRESENT        MR$01350
         DO    (N'&FIELD+3)/5      . $P LOOP THRU FIELD DESCRIPTIONS    MR$01360
&I2      SET   &I+1                                                     MR$01370
&I3      SET   &I+2                                                     MR$01380
&I4      SET   &I+3                                                     MR$01390
&I5      SET   &I+4                                                     MR$01400
&X1      SET   0                                                        MR$01410
&AL      SET     ('&FIELD(&I3)'='CH')++(''='&FIELD(&I3)')               MR$01420
&AL      SET   &AL++(('&FIELD(&I3)'='BI')*2)                            MR$01430
&AL      SET   &AL++(('&FIELD(&I3)'='FI')*3) . $P CHECK LEGAL FORM      MR$01440
&AL      SET   &AL++(('&FIELD(&I3)'='PD')*4)                            MR$01450
&AL      SET   &AL++(('&FIELD(&I3)'='ZD')*5)                            MR$01460
&AL      SET   &AL++(('&FIELD(&I3)'='FL')*6)                            MR$01470
&AL      SET   &AL++(('&FIELD(&I3)'='AC')*8)                            MR$01480
&AL      SET   &AL++(('&FIELD(&I3)'='CSL')*9)                           MR$01490
&AL      SET   &AL++(('&FIELD(&I3)'='CST')*10)                          MR$01500
&AL      SET   &AL++(('&FIELD(&I3)'='CLO')*11)                          MR$01510
&AL      SET   &AL++(('&FIELD(&I3)'='CTO')*12)                          MR$01520
&AL      SET   &AL++(('&FIELD(&I3)'='ASL')*13)                          MR$01530
&AL      SET   &AL++(('&FIELD(&I3)'='AST')*14)                          MR$01540
&AL      SET   &AL++(('&FIELD(&I3)'='USQ')*15)                          MR$01550
         DO    0=&AL                                                    MR$01560
         PNOTE 'P','FORM, &FIELD(&I3)  INCORRECT.'                      MR$01570
&AL      SET   1                                                        MR$01580
         ENDO                                                           MR$01590
         DO    ((&AL<2)++(&AL>2))                                       MR$01600
&J1      SET  '&FIELD(&I2)'                                             MR$01610
         DO    '&FIELD(&I2)'=''                                         MR$01620
&J1      SET   0                                                        MR$01630
         ENDO                                                           MR$01640
         DO  (((&AL=4)++(&AL=5))**('&J1'>'32'))++('&J1'>'256')++(((&AL=XMR$01650
               9)++(&AL=10)++(&AL=13)++(&AL=14))**('&J1'<'2'))          MR$01660
         PNOTE 'P','LENGTH, &J1  INCORRECT FOR FIELD FORM.'             MR$01670
         ENDO                                                           MR$01680
         ENDO                                                           MR$01690
         DO    &AL=2    . BI FIELD                                      MR$01700
&CC      SET   0                   . DEFALTS TO ZERO FOR START          MR$01710
&CCD     SET   0                   . DEFALTS TO ZERO FOR DEC POS        MR$01720
&AA      DO    7                   . TEST FIRST 7 CHAR. OF START        MR$01730
         DO    '&FIELD(&I)'(&AA,1)='.'  . TEST FOR DEC POINT            MR$01740
&AA1     SET   &AA+1               . POINT AT BIT POSITION POINTER      MR$01750
         DO    '&FIELD(&I)'(&AA1,1)=''  . TEST FOR NO BIT POSITION      MR$01760
         GOTO  .FD1                . BIT POSITION ZERO IS START         MR$01770
         ENDO                                                           MR$01780
         DO    ('&FIELD(&I)'(&AA1,1)<'0')++('&FIELD(&I)'(&AA1,1)>'7')   MR$01790
         PNOTE 'P','BI FIELD START DEC. POS. &FIELD(&I) OUT OF RANGE'   MR$01800
         ENDO                      . OUTPUT ERROR BIT POSITION          MR$01810
         GOTO  .FD                 .                                    MR$01820
         ENDO                      . ENDO FOR DEC. POINT TEST           MR$01830
         DO    '&FIELD(&I)'(&AA,1)=''   . TEST FOR FIELD END WITHOUT .  MR$01840
         GOTO  .FD1                                                     MR$01850
         ENDO                                                           MR$01860
&CC      SET   '&FIELD(&I)'(1,&AA)   . BYTE POSITION                    MR$01870
         ENDO                        . ENDO FOR  7 CHAR SCAN            MR$01880
         PNOTE 'P','BI FIELD START &FIELD(&I) GREATER THAN SEVEN CHAR.' MR$01890
         GOTO  .FD1                                                     MR$01900
.FD      LABEL                       . E                                MR$01910
&CCD     SET   '&FIELD(&I)'(&AA1,1)  . SET BIT POS                      MR$01920
.FD1     LABEL                       . ENTRY WHEN NULL DEFALTS TO ZERO  MR$01930
&CC1     SET   0                        . PROC LENGTH FOR BI FIELD      MR$01940
&CCD1    SET   0                        . DEFALTS TO ZERO               MR$01950
&AA      DO    7                        . SCAN FIRST 7 BYTES OF LENGTH  MR$01960
         DO    '&FIELD(&I2)'(&AA,1)='.' . TEST FOR DEC. POINT           MR$01970
&AA2     SET   &AA+1                    . POINT AT BIT POINTER          MR$01980
         DO    '&FIELD(&I2)'(&AA2,1)='' . BIT POINTER NOT PRESENT       MR$01990
         GOTO  .DONE2                                                   MR$02000
         ENDO                                                           MR$02010
         DO    ('&FIELD(&I2)'(&AA2,1)<'0')++('&FIELD(&I2)'(&AA2,1)>'7') MR$02020
         PNOTE 'P','BI FIELD LENGTH DEC. POS. &FIELD(&I2) OUT OF RANGE' MR$02030
         ENDO                                                           MR$02040
         GOTO  .ENTI                                                    MR$02050
         ENDO                                                           MR$02060
         DO    '&FIELD(&I2)'(&AA,1)=''  . TEST FOR LNGTH END WITHOUT .  MR$02070
         GOTO  .DONE2                                                   MR$02080
         ENDO                                                           MR$02090
&CC1     SET   '&FIELD(&I2)'(1,&AA)     . BYTE POS                      MR$02100
         ENDO                                                           MR$02110
         PNOTE 'P','BI FIELD LNGTH &FIELD(&I2) GREATER THAN SEVEN CHAR' MR$02120
         GOTO  .DONE2                                                   MR$02130
.ENTI    LABEL                                                          MR$02140
&CCD1    SET  '&FIELD(&I2)'(&AA2,1)    . BIT POS                        MR$02150
.DONE2   LABEL                                                          MR$02160
&X1      SET   0                                                        MR$02170
         DO    ((&CCD)++(&CCD1))                                        MR$02180
&X1      SET   1                                                        MR$02190
         DO    '&CC1'>'255'                                             MR$02200
         PNOTE 'P','BI LENGTH + FIELD(&I2) HAS BIT POS AND IS GRTR 255' MR$02210
         ENDO                                                           MR$02220
         ENDO                                                           MR$02230
         GOTO  .EI                                                      MR$02240
         ENDO                      . END  AL=2                          MR$02250
&J2      SET  '&FIELD(&I)'                                              MR$02260
         DO    '&FIELD(&I)'=''                                          MR$02270
&J2      SET   0                                                        MR$02280
         ENDO                                                           MR$02290
&B       SET   ('&J2'<'0')++('&J2'>'32767')                             MR$02300
&JE      SET   ((&A=1)**((&J2+1)>&RECS))++(&B)++((&Y=1))                MR$02310
         DO    &JE**((&J2+1)>&C)                                        MR$02320
         PNOTE 'P','BYTE/POS, &J2 NOT WITHIN LIMITS.'                   MR$02330
         ENDO                      . $P CHECK BYTE-POS NE 0, LT 32768   MR$02340
         DO    '&FIELD(&I2)'=''                                         MR$02350
         PNOTE 'P','LENGTH MISSING.'                                    MR$02360
         GOTO  .EI                                                      MR$02370
         ENDO                                                           MR$02380
         DO    ('&J1'<'1')++('&J1'>'256')                               MR$02390
         PNOTE 'P','LENGTH, &J1 NOT WITHIN LIMITS.'                     MR$02400
         ENDO                      . $P CHECK LENGTH CONSISTENCY        MR$02410
.EI      LABEL                                                          MR$02420
         DO    &AL=2                                                    MR$02430
&D       SET   (&CC+&CC1)+(&CCD+&CCD1)/8                                MR$02440
         GOTO  .DLB                                                     MR$02450
         ENDO                                                           MR$02460
&D       SET   (&J2+&J1)                                                MR$02470
.DLB     LABEL                                                          MR$02480
         DO    ((&Y=1)**('&D'>'&C'))++((&A=1)**('&D'>'&RECS'))          MR$02490
         PNOTE 'P','FIELD EXCEEDS RCSZ OR BIN SIZE.'                    MR$02500
         ENDO                                                           MR$02510
&AS      SET     ('&FIELD(&I4)'='A')++(''='&FIELD(&I4)')                MR$02520
&AS      SET   (('&FIELD(&I4)'='D')*2)++(('&FIELD(&I4)'='N')*3)++&AS    MR$02530
         DO    0=&AS                                                    MR$02540
         PNOTE 'P','SEQUENCE, &FIELD(&I4)  INCORRECT.'                  MR$02550
&AS      SET   1                                                        MR$02560
         ENDO                      . $P CHECK SEQUENCE A, D, OR NULL    MR$02570
&X       SET   &X+1                                                     MR$02580
&A0      SET   &X                                                       MR$02590
         DO    '&FIELD(5)'>''                                           MR$02600
&A0      SET  '&FIELD(&I5)'                                             MR$02610
         DO    ('&FIELD(5)'>'')**('&FIELD(&I5)'='')                     MR$02620
         PNOTE 'P','ORDER NUMBER REQUIRED IN ALL FIELD DESCRIPTIONS.'   MR$02630
&A0      SET   0                                                        MR$02640
         ENDO                      . $P CHECK ORDER CONSISTENCY         MR$02650
         ENDO                                                           MR$02660
         DO    ('&FIELD(5)'='')**('&FIELD(&I5)'>'')                     MR$02670
         PNOTE 'P','ORDER NO MUST BE OMITTED IN ALL FIELD DESCRIPTIONS' MR$02680
         ENDO                                                           MR$02690
         DO    &X>255                                                   MR$02700
         GOTO  .ERORD                                                   MR$02710
         ENDO                                                           MR$02720
         DO    '&FIELD(&I5)'>''                                         MR$02730
         DO    ('&FIELD(&I5)'='0')++('&FIELD(&I5)'>'255')               MR$02740
         GOTO  .ERORD                                                   MR$02750
         ENDO                                                           MR$02760
         ENDO                                                           MR$02770
         GOTO  .NXTXX                                                   MR$02780
.ERORD   LABEL                                                          MR$02790
         PNOTE 'P','ORDER NUMBER NOT WITHIN BOUNDS.'                    MR$02800
.NXTXX   LABEL                                                          MR$02810
         DC    X'0B'               . $P GEN 07-LENGTH-BYTE POS.         MR$02820
         DO    ((&AL=2)**(&X1))        BI FIELD WITH BITS SPEC          MR$02830
         DC    AL1(&CC1)                                                MR$02840
         DC    AL2(&CC)                                                 MR$02850
         GOTO  .NXT                                                     MR$02860
         ENDO                                                           MR$02870
         DO    ((&AL=2)**(&X1=0))        . BI WITHOUT BIT SPEC.         MR$02880
         DC    AL1(&CC1-1)          LENGTH MINUS ONE                    MR$02890
         DC    AL2(&CC)             BEGIN BYTE POS                      MR$02900
         GOTO  .NXT                                                     MR$02910
         ENDO                                                           MR$02920
         DC    AL1(&J1-1)                                               MR$02930
         DC    AL2(&J2)                                                 MR$02940
.NXT     LABEL                                                          MR$02950
         DC    X'FF'               . $P GEN FF-FORM-SEQ-ORDER           MR$02960
         DO    ((&AL=2)**(&X1=0))       BI SPEC WITHOUT BITS            MR$02970
         DC    XL1'0'               BI WITH NO BIT SPEC DEFALTS TO CH   MR$02980
         GOTO  .NXTO                                                    MR$02990
         ENDO                                                           MR$03000
         DC    AL1(&AL-1)                                               MR$03010
.NXTO    LABEL                                                          MR$03020
         DC    AL1(&AS-1)                                               MR$03030
         DC    AL1(&A0)                                                 MR$03040
         DO    &X1                                                      MR$03050
         DC    XL1'FF'                                                  MR$03060
         DC    XL1'0'                                                   MR$03070
         DC    AL1(&CCD1)                                               MR$03080
         DC    AL1(&CCD)                                                MR$03090
         ENDO                                                           MR$03100
&I       SET   &I+5                                                     MR$03110
         ENDO                                                           MR$03120
         ENDO                                                           MR$03130
         DO    ''<'&RSOC'          . $T IS RSOC ABSENT                  MR$03140
         DO    ''<'&FIELD'                                              MR$03150
         PNOTE 'P','RSOC AND FIELD INCONSISTENT, SPECIFIED TOGETHER.'   MR$03160
         ENDO                                                           MR$03170
         DC    X'04'               . $P GENERATE   04-RSOC              MR$03180
         DC    AL3(&RSOC)                                               MR$03190
         ENDO                                                           MR$03200
         DO    ''<'&DROC'          . $T IS DROC PRESENT                 MR$03210
         DC    X'05'               . $A YES NO,NXTKEY                   MR$03220
         DO    '&DROC'='DELETE'    . $P DROC EQ DELETE  GEN  05-00      MR$03230
         DC    X'000000'                                                MR$03240
         ENDO                                                           MR$03250
         DO    '&DROC'='DELETE'=0                                       MR$03260
         DC    AL3(&DROC)          . $P DROC NE DELETE  GEN 05-DROC     MR$03270
         ENDO                                                           MR$03280
         ENDO                                                           MR$03290
&B01     DO    ''<'&IN'            . $T IS IN ADDRESS SPECIFIED         MR$03300
         DC    X'01'                                                    MR$03310
         DC    AL3(&IN)            . $P GENERATE TABLE ENTRY            MR$03320
         ENDO                                                           MR$03330
&B02     DO    ''<'&OUT'           . $T IS OUT ADDRESS SPECIFIED        MR$03340
         DC    X'02'                                                    MR$03350
         DC    AL3(&OUT)           . $P GENERATE TABLE ENTRY            MR$03360
         ENDO                                                           MR$03370
&B03     DO    ''<'&FIN'           . $T IS FIN SPECIFIED                MR$03380
         DC    X'03'                                                    MR$03390
         DC    AL3(&FIN)           . $P GENERATE TABLE ENTRY            MR$03400
         ENDO                                                           MR$03410
         DO    ''<'&TAPES'         . $T IS TAPES ABSENT                 MR$03420
         DO    '&TAPES'(1,1)='('=0                                      MR$03430
&AL4     SET  '&TAPES'                                                  MR$03440
&AL6     SET   14                                                       MR$03450
         ENDO                                                           MR$03460
         DO    '&TAPES'(1,1)='('                                        MR$03470
&AL4     SET  '&TAPES(1)'                                               MR$03480
&AL6     SET  '&TAPES(2)'                                               MR$03490
         DO    '&AL6'=''                                                MR$03500
&AL6     SET   14                                                       MR$03510
         GOTO  .TXX                                                     MR$03520
         ENDO                                                           MR$03530
         DO    ('&AL6'<'3')++('&AL6'>'14')++('&AL6'='')                 MR$03540
&AL6     SET   14                                                       MR$03550
         ENDO                                                           MR$03560
.TXX     LABEL                                                          MR$03570
         ENDO                                                           MR$03580
&AL5     SET   (('&AL4'='STD')*1)++(('&AL4'='NO')*2)                    MR$03590
         DO    &AL5=0                                                   MR$03600
         PNOTE 'P','TAPE, &TAPES(1)  LABEL-TYPE WRONG.  STD USED. '     MR$03610
&AL5     SET   1                                                        MR$03620
         ENDO                                                           MR$03630
         DC    X'0D00'                                                  MR$03640
         DC    AL1(&AL6)                                                MR$03650
         DC    AL1(&AL5-1)         . $P GEN  0D-MAXTAPES-LABEL TYPE     MR$03660
         ENDO                                                           MR$03670
&AL1     SET   '&AUTO'>''                                               MR$03680
&AL1     SET   &AL1+('&DOA'>'')                                         MR$03690
&AL1     SET   &AL1+('&DOM'>'')                                         MR$03700
         DO    &AL1>1                                                   MR$03710
         PNOTE 'P','MORE THAN ONE MULTI-CYCLE PARAM, INCONSISTENT.'     MR$03720
         ENDO                                                           MR$03730
         DO    ''<'&RESERV'        . $T IS RESERV PRESENT               MR$03740
         DO    &AL1>0              . $A YES NO,NXTKEY                   MR$03750
         PNOTE 'P','RESERV WITH MULTI-CYCLE PARAMS INCONSISTENT.'       MR$03760
         ENDO                                                           MR$03770
&Z       SET   '&RESERV'(3,2)   . &P VALIDATE FILENAME, SM01-SM14       MR$03780
         DO    '&Z'=''                                                  MR$03790
&Z       SET   0                        .SET TO 0 IF NULL STRING        MR$03800
         ENDO                                                           MR$03810
         DO    ('&RESERV'(1,2)='SM'=0)++('&Z'<'1')++('&Z'>'14')         MR$03820
         PNOTE 'P','RESERV, &RESERV FILENAME INCORRECT.'                MR$03830
         ENDO                                                           MR$03840
         DC    X'0F0000'                                                MR$03850
         DC    XL1'&Z'             . $P GENERATE  OF-FILENAME VALUE     MR$03860
.RESVND  LABEL                                                          MR$03870
         ENDO                                                           MR$03880
         DO    ''<'&SHARE'         . $T IS SHARE PRESENT                MR$03890
         DO    &AL1>0              . $A YES NO,NXTKEY                   MR$03900
         PNOTE 'P','SHARE WITH MULTI-CYCLE PARAMS INCONSISTENT.'        MR$03910
         ENDO                                                           MR$03920
         DO    ((''<'&RESERV')**('&SHARE'='&RESERV'))                   MR$03930
         PNOTE 'P','SHARE AND RESERV FILENAMES MUST BE UNIQUE'          MR$03940
         ENDO                                                           MR$03950
&Z       SET   '&SHARE'(3,2)                                            MR$03960
         DO    '&Z'=''                                                  MR$03970
&Z       SET   0                        .SET TO 0 FI NULL STRING        MR$03980
         ENDO                                                           MR$03990
         DO    ('&SHARE'(1,2)='SM'=0)++('&Z'<'1')++('&Z'>'14')          MR$04000
         PNOTE 'P','SHARE, &SHARE FILENAME INCORRECT'                   MR$04010
         ENDO                                                           MR$04020
         DC    X'0E0000'                                                MR$04030
         DC    XL1'&Z'             . $P GENERATE  0E-FILENAME VALUE     MR$04040
.SHREND  LABEL                                                          MR$04050
         ENDO                                                           MR$04060
         DO    ''<'&DISC'          . $T    DISC ABSENT                  MR$04070
         DO    '&DISC'(1,1)='('                                         MR$04080
&CC      SET   '&DISC(1)'               FILE ADDR                       MR$04090
         DO    '&DISC(1)'=''                                            MR$04100
&CC      SET   0                                                        MR$04110
         ENDO                                                           MR$04120
&CC1     SET  '&DISC(2)'                NO OF DISCS                     MR$04130
         DO    '&DISC(2)'=''                                            MR$04140
&CC1     SET   0                                                        MR$04150
         ENDO                                                           MR$04160
         GOTO  .DISCA                                                   MR$04170
         ENDO                                                           MR$04180
&CC1     SET   '&DISC'                                                  MR$04190
.DISCA   LABEL                                                          MR$04200
         DO    ('&CC1'<'1')++('&CC1'>'8')                               MR$04210
         PNOTE 'P','DISC MAX-FILENUMBER, &DISC INCORRECT.'              MR$04220
&CC1     SET   8                                                        MR$04230
         ENDO                                                           MR$04240
         DC    X'0C0000'                DISC ENTRY                      MR$04250
         DC    XL1'&CC1'                MAX DISC FLS                    MR$04260
         DO    '&DISC'(1,1)='('                                         MR$04270
         DC    XL1'FF'                                                  MR$04280
         DC    AL3(&CC)                 ADDR FL-NMS                     MR$04290
         ENDO                                                           MR$04300
         ENDO                                                           MR$04310
         DO    ''<'&AUTO'          . $T IS AUTO PRESENT                 MR$04320
&AL5     SET   '&AUTO(2)'(3,2)                                          MR$04330
         DO    '&AUTO(2)'(3,2)=''                                       MR$04340
&AL5     SET   0                                                        MR$04350
         ENDO                                                           MR$04360
         DO    ('&AUTO(2)'(1,2)='SM'=0)++('&AL5'<'1')++('&AL5'>'14')    MR$04370
         PNOTE 'P','AUTO, &AUTO(2) OUTPUT FILENAME INCORRECT.'          MR$04380
         ENDO                      . $P VALIDATE OUTPUT FILENAME        MR$04390
          DO   N'&AUTO<2                                                MR$04400
         PNOTE 'P','AUTO PARAMETERS MISSING'                            MR$04410
         ENDO                                                           MR$04420
         DC    X'10'               . $P GENERATE  10-LABEL ID-FILENAME  MR$04430
&J1      SET   '&AUTO(1)'                                               MR$04440
         DO    '&AUTO(1)'=''                                            MR$04450
&J1      SET   0                                                        MR$04460
         ENDO                                                           MR$04470
         DC    CL2'&J1'                                                 MR$04480
         DC    XL1'&AL5'                                                MR$04490
&Z       SET   0                                                        MR$04500
         DO    '&AUTO(3)'>''                                            MR$04510
&Z       SET    '&AUTO(3)'                                              MR$04520
         ENDO                                                           MR$04530
         DC    X'FF'               . $P GEN  FF-REC PER CYLE            MR$04540
         DC    PL6'&Z'                                                  MR$04550
         ORG   *-3                                                      MR$04560
         DC    X'FF'                                                    MR$04570
         DC    PL3'&Z'                                                  MR$04580
         ENDO                                                           MR$04590
         DO    ''<'&DOEXT'         . $P IF PRESENT FORM TABLE ENTRY     MR$04600
         DC    X'06'                                                    MR$04610
         DC    AL3(&DOEXT)                                              MR$04620
         ENDO                                                           MR$04630
         DO    ''<'&DOA'           . $T IS DOA PRESENT                  MR$04640
         DO    N'&DOA<2                                                 MR$04650
         PNOTE 'P','DOA PARAMETERS MISSING'                             MR$04660
         ENDO                                                           MR$04670
&AL5     SET   '&DOA(2)'(3,2)      . $P VALIDATE FILENAME               MR$04680
         DO    '&DOA(2)'(3,2)=''                                        MR$04690
&AL5     SET   0                                                        MR$04700
         ENDO                                                           MR$04710
         DO    ('&DOA(2)'(1,2)='SM'=0)++('&AL5'<'1')++('&AL5'>'14')     MR$04720
         PNOTE 'P','DOA, &DOA(2) OUTPUT FILENAME INCORRECT.'            MR$04730
         ENDO                      . $A YES NO,NXTKEY                   MR$04740
&J1      SET  '&DOA(4)'                                                 MR$04750
         DO    '&DOA(4)'=''                                             MR$04760
&J1      SET   0                                                        MR$04770
         ENDO                                                           MR$04780
         DO    ('&DOA(4)'>'')**(('&J1'<'3')++('&J1'>'14'))              MR$04790
         PNOTE 'P','DOA MERGE TAPES, &DOA(4) WRONG'                     MR$04800
         ENDO                                                           MR$04810
         DC    X'11'                                                    MR$04820
&J1      SET   '&DOA(1)'                                                MR$04830
         DO    '&DOA(1)'=''                                             MR$04840
&J1      SET   0                                                        MR$04850
         ENDO                                                           MR$04860
         DC    CL2'&J1'                 .GEN 11-LABEL ID-FILENAME VALUE MR$04870
         DC    XL1'&AL5'                                                MR$04880
         DC    X'FF'                                                    MR$04890
&Z       SET   0                                                        MR$04900
         DO    '&DOA(3)'>''                                             MR$04910
&Z       SET    '&DOA(3)'                                               MR$04920
         ENDO                                                           MR$04930
         DC    PL6'&Z'                                                  MR$04940
         ORG   *-3                                                      MR$04950
         DC    X'FF'                                                    MR$04960
         DC    PL3'&Z'                                                  MR$04970
         DC    X'FF'                                                    MR$04980
&Z       SET   0                                                        MR$04990
         DO    '&DOA(4)'>''                                             MR$05000
&Z       SET   &DOA(4)                                                  MR$05010
         ENDO                                                           MR$05020
         DC    AL3(&Z)                                                  MR$05030
         ENDO                                                           MR$05040
         DO    ''<'&DOM'           . $T IS DOM PRESENT                  MR$05050
&AL5     SET   '&DOM(2)'(3,2)      . $P VALIDATE FILENAME               MR$05060
         DO    ('&DOM(2)'(1,2)='SM'=0)++('&AL5'<'1')++('&AL5'>'14')     MR$05070
&AL5     SET   0                                                        MR$05080
         ENDO                                                           MR$05090
         DO    ('&DOM(2)'(1,2)='SM'=0)++(&AL5<1)++(&AL5>14)             MR$05100
         PNOTE 'P','DOM, &DOM(2) OUTPUT FILENAME INCORRECT.'            MR$05110
         ENDO                                                           MR$05120
         DC    X'12'               . $P GEN 12-LABEL ID-FILENAME VALUE  MR$05130
&J1      SET   '&DOM(1)'                                                MR$05140
         DO    '&DOM(1)'=''                                             MR$05150
&J1      SET   0                                                        MR$05160
         ENDO                                                           MR$05170
         DC    CL2'&J1'                 .GEN UP TO 13, FF-IN LABELS     MR$05180
         DC    XL1'&AL5'                                                MR$05190
&J1      SET  '&DOM(3)'                                                 MR$05200
         DO    '&DOM(3)'=''                                             MR$05210
&J1      SET   0                                                        MR$05220
         ENDO                                                           MR$05230
         DO    '&J1'<'1'                                                MR$05240
         PNOTE 'P','CYCLE NO., &DOM(3) WRONG'                           MR$05250
         ENDO                                                           MR$05260
         DC    X'FF00'                                                  MR$05270
         DC    PL2'&J1'                                                 MR$05280
         DO   (N'&DOM<5)++(N'&DOM>16)                                   MR$05290
         PNOTE 'P','TOO MANY OR NOT-ENOUGH INPUT FILES.'                MR$05300
         ENDO                                                           MR$05310
&AL3     SET   N'&DOM-3                                                 MR$05320
&AL2     SET   4                                                        MR$05330
         DO    &AL3                                                     MR$05340
         DO    '&DOM(&AL2)'(3,1)='/'=0                                  MR$05350
         PNOTE 'P','IN-LABEL, &DOM(&AL2) WRONG FORMAT'                  MR$05360
         ENDO                                                           MR$05370
         DC    X'FF'                                                    MR$05380
&AL6     SET   '&DOM(&AL2)'(1,3)                                        MR$05390
         DO    '&AL6'=''                                                MR$05400
&AL6     SET   0                                                        MR$05410
         ENDO                                                           MR$05420
         DC    CL3'&AL6'                                                MR$05430
         DC    X'FF'                                                    MR$05440
&AL6     SET   '&DOM(&AL2)'(4,3)                                        MR$05450
         DO    '&AL6'=''                                                MR$05460
&AL6     SET   0                                                        MR$05470
         ENDO                                                           MR$05480
         DC    CL3'&AL6'                                                MR$05490
&AL2     SET   &AL2+1                                                   MR$05500
         ENDO                                                           MR$05510
         ENDO                                                           MR$05520
         DO    ''<'&DOF'           . $T IS DOF PRESENT                  MR$05530
         DO    '&DOF'(1,1)='('=1                                        MR$05540
&AL3     SET   N'&DOF              . $A YES NO,NXTKEY                   MR$05550
         DO    &AL3>14             . $P VALIDATE  PARAMS                MR$05560
         PNOTE 'P','TOO MANY IN-LABELS SPECIFIED.'                      MR$05570
         ENDO                      . $P GEN  DOF IN-LABEL ENTRIES       MR$05580
&AL2     SET   1                                                        MR$05590
&X       SET   19                                                       MR$05600
         DO    N'&DOF                                                   MR$05610
         DO    '&DOF(&AL2)'(3,1)='/'=0                                  MR$05620
         PNOTE 'P','IN-LABEL, &DOF(&AL2) WRONG FORMAT'                  MR$05630
         ENDO                                                           MR$05640
         DC    AL1(&X)                                                  MR$05650
&AL5     SET   '&DOF(&AL2)'(1,3)                                        MR$05660
         DO    '&AL5'=''                                                MR$05670
&AL5     SET   0                                                        MR$05680
         ENDO                                                           MR$05690
         DC    CL3'&AL5'                                                MR$05700
&AL5     SET   '&DOF(&AL2)'(4,3)                                        MR$05710
         DO    '&AL5'=''                                                MR$05720
&AL5     SET   0                                                        MR$05730
         ENDO                                                           MR$05740
         DC    X'FF'                                                    MR$05750
         DC    CL3'&AL5'                                                MR$05760
&AL2     SET   &AL2+1                                                   MR$05770
&X       SET   255                                                      MR$05780
         ENDO                                                           MR$05790
         ENDO                                                           MR$05800
         DO    '&DOF'(1,1)='('=0                                        MR$05810
         DO    '&DOF'(3,1)='/'=0                                        MR$05820
         PNOTE 'P','IN-LABEL, &DOF WRONG FORMAT'                        MR$05830
         ENDO                                                           MR$05840
&AL5     SET   '&DOF'(1,3)                                              MR$05850
         DO    '&AL5'=''                                                MR$05860
&AL5     SET   0                                                        MR$05870
         ENDO                                                           MR$05880
         DC    X'13'                                                    MR$05890
         DC    CL3'&AL5'                                                MR$05900
&AL5     SET   '&DOF'(4,3)                                              MR$05910
         DO    '&AL5'=''                                                MR$05920
&AL5     SET   0                                                        MR$05930
         ENDO                                                           MR$05940
         DC    X'FF'                                                    MR$05950
         DC    CL3'&AL5'                                                MR$05960
         ENDO                                                           MR$05970
         ENDO                                                           MR$05980
&AL5     SET   1                                                        MR$05990
         DO    ''<'&RESUME'        . $T IS RESUME PRESENT               MR$06000
         DO    '&RESUME(1)'='PASS' . $A YES NO,NXTKEY                   MR$06010
         DO    N'&RESUME<2                                              MR$06020
         PNOTE 'P','RESUME PASS PARAMETERS MISSING'                     MR$06030
         ENDO                                                           MR$06040
&AL5     SET   0                   . $P VALIDATE RESUME PARAM LIST      MR$06050
         DC    X'14'               . $P GEN RESUME ENTRY                MR$06060
&J1      SET  '&RESUME(2)'                                              MR$06070
         DO    '&RESUME(2)'=''                                          MR$06080
&J1      SET   0                                                        MR$06090
         ENDO                                                           MR$06100
         DC    CL3'&J1'                 . PASS RECOVERY NUMBER          MR$06110
         ENDO                                                           MR$06120
         DO           ('&RESUME(1)'='CYCLE')                            MR$06130
         DO    N'&RESUME<3                                              MR$06140
         PNOTE 'P','RESUME CYCLE PARAMETERS MISSING'                    MR$06150
         ENDO                                                           MR$06160
&AL5     SET   0                                                        MR$06170
&J1      SET  '&RESUME(2)'                                              MR$06180
         DO    '&RESUME(2)'=''                                          MR$06190
&J1      SET   0                                                        MR$06200
         ENDO                                                           MR$06210
         DO    '&J1'<'1'                                                MR$06220
         PNOTE 'P','CYCLE NUMBER, &RESUME(2) INCORRECT'                 MR$06230
         ENDO                                                           MR$06240
         DC    X'15'                                                    MR$06250
         DC    PL3'&J1'                                                 MR$06260
&Z       SET    '&RESUME(3)'                                            MR$06270
         DO    '&Z'=''                                                  MR$06280
&Z       SET   0                                                        MR$06290
         ENDO                                                           MR$06300
         DC    X'FF'                                                    MR$06310
         DC    PL6'&Z'                                                  MR$06320
         ORG   *-3                                                      MR$06330
         DC    X'FF'                                                    MR$06340
         DC    PL3'&Z'                                                  MR$06350
         ENDO                                                           MR$06360
         DO           ('&RESUME(1)'='MERGE')                            MR$06370
         DO    N'&RESUME<3                                              MR$06380
         PNOTE 'P','RESUME MERGE PARAMETERS MISSING'                    MR$06390
         ENDO                                                           MR$06400
&AL5     SET   0                                                        MR$06410
&J1      SET  '&RESUME(3)'                                              MR$06420
         DO    '&RESUME(3)'=''                                          MR$06430
&J1      SET   0                                                        MR$06440
         ENDO                                                           MR$06450
         DO    ('&RESUME(2)'(3,1)='/'=0)++('&J1'<'1')                   MR$06460
         PNOTE 'P','IN-LABEL OR REEL NUMBER WRONG'                      MR$06470
         ENDO                                                           MR$06480
         DC    X'16'                                                    MR$06490
&Z       SET   '&RESUME(2)'(1,3)                                        MR$06500
         DO    '&Z'=''                                                  MR$06510
&Z       SET   0                                                        MR$06520
         ENDO                                                           MR$06530
         DC    CL3'&Z'                                                  MR$06540
         DC    X'FF'                                                    MR$06550
&Z       SET   '&RESUME(2)'(4,3)                                        MR$06560
         DO    '&Z'=''                                                  MR$06570
&Z       SET   0                                                        MR$06580
         ENDO                                                           MR$06590
         DC    CL3'&Z'                                                  MR$06600
         DC    X'FF'                                                    MR$06610
&Z       SET  '&RESUME(3)'                                              MR$06620
         DO    '&RESUME(3)'=''                                          MR$06630
&Z       SET   0                                                        MR$06640
         ENDO                                                           MR$06650
         DC    PL3'&Z'                                                  MR$06660
         ENDO                                                           MR$06670
         DO           ('&RESUME(1)'='FINAL')                            MR$06680
         DO    N'&RESUME<2                                              MR$06690
         PNOTE 'P','RESUME FINAL PARAMETERS MISSING'                    MR$06700
         ENDO                                                           MR$06710
&AL5     SET   0                                                        MR$06720
         DC    X'17'                                                    MR$06730
&J1      SET   '&RESUME(2)'                                             MR$06740
         DO    '&J1'=''                                                 MR$06750
&J1      SET   0                                                        MR$06760
         ENDO                                                           MR$06770
         DC    AL3(&J1)                                                 MR$06780
         ENDO                                                           MR$06790
         DO    &AL5                                                     MR$06800
         PNOTE 'P','RESUME KEYWORD, &RESUME(1) INCORRECT.'              MR$06810
         ENDO                                                           MR$06820
         ENDO                                                           MR$06830
&AL5     SET   1                                                        MR$06840
         DO    ''<'&REDO'          . $T IS REDO PRESENT                 MR$06850
         DO    '&REDO(1)'='CYCLE'  . $A YES NO,NXTKEY                   MR$06860
         DO    N'&REDO<4                                                MR$06870
         PNOTE 'P','REDO CYCLE PARAMETERS MISSING'                      MR$06880
         ENDO                                                           MR$06890
&AL5     SET   0                   . $P VALIDATE REDO LIST              MR$06900
&J1      SET  '&REDO(2)'                                                MR$06910
         DO    '&REDO(2)'=''                                            MR$06920
&J1      SET   0                                                        MR$06930
         ENDO                                                           MR$06940
         DO    '&J1'<'1'                                                MR$06950
         PNOTE 'P','CYCLE NUMBER, &REDO(2) INCORRECT'                   MR$06960
         ENDO                                                           MR$06970
         DC    X'18'               . $P GEN  SPECIFIC REDO ENTRY        MR$06980
         DC    PL3'&J1'                                                 MR$06990
         DC    X'FF'                                                    MR$07000
&Z       SET  '&REDO(3)'                                                MR$07010
         DO    '&REDO(3)'=''                                            MR$07020
&Z       SET   0                                                        MR$07030
         ENDO                                                           MR$07040
         DC    PL6'&Z'                                                  MR$07050
         ORG   *-3                                                      MR$07060
         DC    X'FF'                                                    MR$07070
         DC    PL3'&Z'                                                  MR$07080
&Z       SET  '&REDO(4)'                                                MR$07090
         DO    '&REDO(4)'=''                                            MR$07100
&Z       SET   0                                                        MR$07110
         ENDO                                                           MR$07120
         DC    X'FF'                                                    MR$07130
         DC    PL6'&Z'                                                  MR$07140
         ORG   *-3                                                      MR$07150
         DC    X'FF'                                                    MR$07160
         DC    PL3'&Z'                                                  MR$07170
         ENDO                                                           MR$07180
         DO           ('&REDO(1)'='MERGE')                              MR$07190
         DO    N'&REDO<4                                                MR$07200
         PNOTE 'P','REDO MERGE PARAMETERS MISSING'                      MR$07210
         ENDO                                                           MR$07220
&AL5     SET   0                                                        MR$07230
&J1      SET  '&REDO(3)'                                                MR$07240
         DO    '&REDO(3)'=''                                            MR$07250
&J1      SET   0                                                        MR$07260
         ENDO                                                           MR$07270
         DO    ('&REDO(2)'(3,1)='/'=0)++('&J1'<'1')                     MR$07280
         PNOTE 'P','IN-LABEL OR REEL NUMBER WRONG'                      MR$07290
         ENDO                                                           MR$07300
         DC    X'19'                                                    MR$07310
&Z       SET   '&REDO(2)'(1,3)                                          MR$07320
         DO    '&Z'=''                                                  MR$07330
&Z       SET   0                                                        MR$07340
         ENDO                                                           MR$07350
         DC    CL3'&Z'                                                  MR$07360
         DC    X'FF'                                                    MR$07370
&Z       SET   '&REDO(2)'(4,3)                                          MR$07380
         DO    '&Z'=''                                                  MR$07390
&Z       SET   0                                                        MR$07400
         ENDO                                                           MR$07410
         DC    CL3'&Z'                                                  MR$07420
         DC    X'FF'                                                    MR$07430
         DC    PL3'&J1'                                                 MR$07440
&Z       SET  '&REDO(4)'                                                MR$07450
         DO    '&REDO(4)'=''                                            MR$07460
&Z       SET   0                                                        MR$07470
         ENDO                                                           MR$07480
         DC    X'FF'                                                    MR$07490
         DC    PL6'&Z'                                                  MR$07500
         ORG   *-3                                                      MR$07510
         DC    X'FF'                                                    MR$07520
         DC    PL3'&Z'                                                  MR$07530
         ENDO                                                           MR$07540
         DO    &AL5                                                     MR$07550
         PNOTE 'P','REDO KEYWORD, &REDO(1) INCORRECT.'                  MR$07560
         ENDO                                                           MR$07570
         ENDO                                                           MR$07580
         DO    '&NOCKSM'>''                                             MR$07590
&AL5     SET   2                                                        MR$07600
&AL6     SET   1                                                        MR$07610
         DO    '&NOCKSM'(1,1)='('=1                                     MR$07620
&I2      SET   ('&NOCKSM(1)'='T')++('&NOCKSM(2)'='T')                   MR$07630
&I3      SET   ('&NOCKSM(1)'='D')++('&NOCKSM(2)'='D')                   MR$07640
&AL5     SET   &I2+&I3                                                  MR$07650
         ENDO                                                           MR$07660
         DO    '&NOCKSM'(1,1)='('=0                                     MR$07670
&I2      SET   '&NOCKSM'='T'                                            MR$07680
&I3      SET   '&NOCKSM'='D'                                            MR$07690
&AL6     SET   &I2+&I3                                                  MR$07700
         ENDO                                                           MR$07710
         DO    (&AL5<2)++(&AL6<1)                                       MR$07720
         PNOTE 'P','NOCKSM DEVICE, &NOCKSM, INCORRECT.'                 MR$07730
         ENDO                                                           MR$07740
         DC    X'1A00'                                                  MR$07750
         DC    XL1'&I2'                                                 MR$07760
         DC    XL1'&I3'                                                 MR$07770
         ENDO                                                           MR$07780
         DO    '&CSPRAM'>''                                             MR$07790
         DC    X'210000'                                                MR$07800
&AL      SET   '&CSPRAM'='OPTION'                                       MR$07810
&AL      SET   &AL++(('&CSPRAM'='YES')*2)                               MR$07820
&AL      SET   &AL++(('&CSPRAM'='NO')*3)                                MR$07830
         DO    &AL=0                                                    MR$07840
         PNOTE 'P','CSPRAM, &CSPRAM, OPTION INCORRECT.'                 MR$07850
&AL      SET   1                                                        MR$07860
         ENDO                                                           MR$07870
         DC    XL1'&AL'                                                 MR$07880
         ENDO                                                           MR$07890
         DO    '&MERGE'>''                                              MR$07900
         DO    '&MERGE'='NO'                                            MR$07910
         GOTO  .BYP                                                     MR$07920
         ENDO                                                           MR$07930
         DO    '&MERGE'='YES'                                           MR$07940
         DC    XL1'9'                   MERGE ONLY APPLICATION          MR$07950
         DC    XL3'0'                                                   MR$07960
         GOTO  .BYP                                                     MR$07970
         ENDO                                                           MR$07980
         PNOTE 'P','MERGE SPEC. &MERGE INCORRECT,DEFALT TO YES'         MR$07990
         DC    XL4'09000000'                                            MR$08000
.BYP     LABEL                                                          MR$08010
         ENDO                                                           MR$08020
         DO    '&SEL'>''                                                MR$08030
         DO    '&SEL'='NO'                                              MR$08040
         GOTO  .BYPA                                                    MR$08050
         ENDO                                                           MR$08060
         DO    '&SEL'='YES'                                             MR$08070
         DC    XL1'2A'               SELECTION SORT                     MR$08080
         DC XL3'0'                                                      MR$08090
         GOTO  .BYPA                                                    MR$08100
         ENDO                                                           MR$08110
         PNOTE 'P','SEL SPEC. &SEL INCORRECT,DEFAULT TO YES'            MR$08120
         DC    XL4'2A000000'                                            MR$08130
.BYPA    LABEL                                                          MR$08140
         ENDO                                                           MR$08150
         DO    '&ADDROUT'>''                                            MR$08160
         DC    XL1'22'                  ADDROUT / TAG SORT              MR$08170
         DO    '&ADDROUT'='A'                                           MR$08180
         DC    XL3'1'                   RET EXTERNAL ADDR AND KEY       MR$08190
         GOTO  .BYA                                                     MR$08200
         ENDO                                                           MR$08210
         DO    '&ADDROUT'='D'                                           MR$08220
         DC    XL3'0'                   RET ONLY EXTERNAL ADDR          MR$08230
         GOTO  .BYA                                                     MR$08240
         ENDO                                                           MR$08250
         PNOTE 'P','ADDROUT SPEC. &ADDROUT INCORRECT,DEFALT TO NO'      MR$08260
         DC    XL3'0'                                                   MR$08270
.BYA     LABEL                                                          MR$08280
         ENDO                                                           MR$08290
         DO    '&CALC'>''                                               MR$08300
         DC    XL1'25'                  CALCAREA                        MR$08310
         DO    '&CALC'='NO'                                             MR$08320
         DC    XL3'0'                   NO EXECUTION                    MR$08330
         GOTO  .CALE                                                    MR$08340
         ENDO                                                           MR$08350
         DO    '&CALC'='YES'                                            MR$08360
         DC    XL3'2'                                                   MR$08370
         GOTO  .CALE                                                    MR$08380
         ENDO                                                           MR$08390
         DO    '&CALC'='OPTION'                                         MR$08400
         DC    XL3'1'                   OPTION                          MR$08410
         GOTO  .CALCE                                                   MR$08420
         ENDO                                                           MR$08430
         PNOTE 'P','CALCAREA SPEC. &CALC INCORRECT, DEFAULT TO YES'     MR$08440
         DC    XL3'1'                   EXECUTION                       MR$08450
.CALE    LABEL                                                          MR$08460
         ENDO                                                           MR$08470
         DO    '&SIZE'>''                                               MR$08480
         DC    XL1'26'                  SIZE SPECIFICATION              MR$08490
         DC    AL3(&SIZE)                                               MR$08500
         ENDO                                                           MR$08510
         DO    '&USEQ'>''                                               MR$08520
         DO    '&USEQ'(1,1)='('                                         MR$08530
         GOTO  .UOK1                                                    MR$08540
         ENDO                                                           MR$08550
.UER     LABEL                                                          MR$08560
         PNOTE 'P','USEQ SPEC. INVALID,ENTRY IGNORED'                   MR$08570
         GOTO  .UEN                                                     MR$08580
.UOK1    LABEL                                                          MR$08590
&AL4     SET   '&USEQ(1)'                                               MR$08600
&AL6     SET   '&USEQ(2)'                                               MR$08610
         DO    ('&AL6'='')++('&AL4'='')                                 MR$08620
         GOTO  .UER                                                     MR$08630
         ENDO                                                           MR$08640
         DC    XL1'1B'                  USEQ SPECIFIED                  MR$08650
         DC    AL3(&AL4)                256 BYTE TRANSLATE TAB          MR$08660
         DC    XL1'FF'                                                  MR$08670
         DC    AL3(&AL6)                INVERSE OF PREV TRANSLATE TAB   MR$08680
.UEN     LABEL                                                          MR$08690
         ENDO                                                           MR$08700
         DO    '&PRINT'>''                                              MR$08710
         DO    '&PRINT'='ALL'                                           MR$08720
         GOTO  .PRDN                                                    MR$08730
         ENDO                                                           MR$08740
         DO    '&PRINT'='CRITICAL'                                      MR$08750
         DC    XL4'29000001'            ONLY CRITICAL MESSAGES TO PRNTR MR$08760
         GOTO  .PRDN                                                    MR$08770
         ENDO                                                           MR$08780
         DO    '&PRINT'='NONE'                                          MR$08790
         DC    XL4'29000002'            NO MESSAGES TO PRNTR            MR$08800
         GOTO  .PRDN                                                    MR$08810
         ENDO                                                           MR$08820
         DO    '&PRINT'='LOGALL'                                        MR$08830
         DC    XL4'29000003'            ALL MESSAGES TO CONSOL AND PRNT MR$08840
         GOTO  .PRDN                                                    MR$08850
         ENDO                                                           MR$08860
         PNOTE 'P','PRINT ENTRY &PRINT INVALID, DEFALT TO ALL'          MR$08870
.PRDN    LABEL                                                          MR$08880
         ENDO                                                           MR$08890
&B20     DO    ''<'&PAD'           . $T IS PAD PARAM SPECIFIED          MR$08900
         DO    (&PAD+3)/4          . $A YES NO,B00                      MR$08910
         DC    X'20000000'         . $P GENERATE PAD BYTES              MR$08920
         ENDO                                                           MR$08930
         ENDO                                                           MR$08940
&Z       SET   0                                                        MR$08950
         DO    '&ADTABL'>''                                             MR$08960
&Z       SET  '&ADTABL'                                                 MR$08970
         ENDO                                                           MR$08980
         DC    AL4(&Z)                                                  MR$08990
         END                                                            MR$09000
