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