MACRO                                                          00001000
&LABEL   FSCB  &FILEID,&RECFM=F,&BUFFER=0,&BSIZE=0,&RECNO=0,&NOREC=1,&FX00002100
               ORM=                                                     00002200
         GBLC  &DMSNAME,&DMSTYPE,&DMSMODE                               00003000
         AIF   (T'&FORM EQ 'O').NOFORM                                  00003100
         AIF   ('&FORM' EQ 'E').FORME                                   00003200
         MNOTE 8,'Error: FSCB FORM=&FORM parameter not valid'           00003300
         MEXIT                                                          00003400
.FORME   ANOP                                                           00003500
         MNOTE 4,'Warning: FSCB FORM=E accepted but not implemented'    00003600
.NOFORM  ANOP                                                           00003700
&DMSNAME SETC  ' '                                                      00004000
&DMSTYPE SETC  ' '                                                      00005000
&DMSMODE SETC  ' '                                                      00006000
         AIF   (T'&FILEID EQ 'O').SKIP                                  00007000
&DMSMODE SETC  'A1'                                                     00008000
         DMSPID &FILEID                                                 00009000
.SKIP    ANOP                                                           00010000
         AIF   ('&RECFM' EQ 'F' OR '&RECFM' EQ 'V').CONT                00011000
         MNOTE 8,'INVALID RECFM SPECIFICATION'                          00012000
.CONT    AIF   ('&RECNO' LE '65533').CONT1                              00013100
         MNOTE 8,'RECNO (&RECNO) EXCEEDS MAX (65533)'                   00013200
.CONT1   AIF   ('&NOREC' LE '65533').CONT2                              00013300
         MNOTE 8,'NOREC (&NOREC) EXCEEDS MAX (65533)'                   00013400
.CONT2   ANOP                                                           00013500
&LABEL   DS    0F                                                       00014000
         DC    CL8' '                                                   00015000
         DC    CL8'&DMSNAME'                                            00016000
         DC    CL8'&DMSTYPE'                                            00017000
         DC    CL2'&DMSMODE'                                            00018000
         DC    AL2(&RECNO)                                              00019100
         DC    AL4(&BUFFER)                                             00020000
         DC    FL4'&BSIZE'                                              00021000
         DC    CL2'&RECFM'                                              00022000
         DC    AL2(&NOREC)                                              00023100
         DC    AL4(0)                                                   00024000
         SPACE                                                          00025000
         MEND                                                           00026000