MACRO 00001000 &LABEL FSWRITE &FILEID,&FSCB=,&RECFM=,&BUFFER=,&BSIZE=,&RECNO=,&NORECX00002000 =,&ERROR=*+4,&FORM= 00003100 GBLC &DMSNAME,&DMSTYPE,&DMSMODE 00004000 AIF (T'&FORM EQ 'O').NOFORM 00004100 AIF ('&FORM' EQ 'E').FORME 00004200 MNOTE 8,'Error: FSWRITE FORM=&FORM parameter not valid' 00004300 MEXIT 00004400 .FORME ANOP 00004500 MNOTE 4,'Warning: FSWRITE FORM=E accepted but not implemented' 00004600 .NOFORM ANOP 00004700 AIF (T'&FILEID EQ 'O' AND T'&FSCB EQ 'O').ERR1 00005000 AIF (T'&FILEID EQ 'O').NOID 00006000 AIF ('&FILEID'(1,1) NE '''' AND '&FILEID'(1,1) NE '(').ERR2 00007000 AIF ('&FILEID'(1,1) EQ '(' AND '&FILEID(1)' EQ '0').ERR3 00008000 AIF ('&FILEID'(1,1) EQ '(' AND '&FILEID(1)' EQ '1').ERR3 00009000 &DMSNAME SETC ' ' 00010000 &DMSTYPE SETC ' ' 00011000 &DMSMODE SETC ' ' 00012000 AIF ('&FILEID'(1,1) EQ '(').CONT1 00013000 &DMSMODE SETC 'A1' 00014000 DMSPID &FILEID 00015000 AIF ('&DMSNAME' EQ ' ' OR '&DMSTYPE' EQ ' ').ERR2 00016000 .CONT1 AIF (T'&FSCB EQ 'O').NOCB 00017000 .NOID AIF (T'&LABEL EQ 'O').NLBL 00018000 &LABEL DS 0H 00019000 .NLBL ANOP 00020000 AIF ('&FSCB'(1,1) EQ '(').REG1 00021000 LA 1,&FSCB 00022000 AGO .CONT2 00023000 .REG1 AIF ('&FSCB(1)' EQ '1').CONT2 00024000 LR 1,&FSCB(1) 00025000 .CONT2 AIF (T'&FILEID EQ 'O').CONT3 00026000 AIF ('&FILEID'(1,1) EQ '(').REG2 00027000 MVC 8(8,1),=CL8'&DMSNAME' 00028000 MVC 16(8,1),=CL8'&DMSTYPE' 00029000 MVC 24(2,1),=CL2'&DMSMODE' 00030000 AGO .CONT3 00031000 .REG2 ANOP 00032000 MVC 8(18,1),0(&FILEID(1)) 00033000 .CONT3 AIF (T'&RECNO EQ 'O').SKIP1 00034000 AIF ('&RECNO'(1,1) EQ '(').STOR1 00035000 AIF ('&RECNO' GT '65533').ERR12 00036100 MVC 26(2,1),=AL2(&RECNO) 00036200 AGO .SKIP1 00037000 .STOR1 ANOP 00038000 AIF ('&RECNO(1)' EQ '1').ERR4 00039000 STH &RECNO(1),26(,1) 00040000 .SKIP1 AIF (T'&BUFFER EQ 'O').SKIP2 00041000 AIF ('&BUFFER'(1,1) EQ '(').STOR2 00042000 MVC 28(4,1),=A(&BUFFER) 00043000 AGO .SKIP2 00044000 .STOR2 ANOP 00045000 AIF ('&BUFFER(1)' EQ '1').ERR5 00046000 ST &BUFFER(1),28(,1) 00047000 .SKIP2 AIF (T'&BSIZE EQ 'O').SKIP3 00048000 AIF ('&BSIZE'(1,1) EQ '(').STOR3 00049000 MVC 32(4,1),=F'&BSIZE' 00050000 AGO .SKIP3 00051000 .STOR3 ANOP 00052000 AIF ('&BSIZE(1)' EQ '1').ERR6 00053000 ST &BSIZE(1),32(,1) 00054000 .SKIP3 AIF (T'&RECFM EQ 'O').SKIP4 00055000 AIF ('&RECFM'(1,1) EQ '(').STOR4 00056000 AIF ('&RECFM' NE 'F' AND '&RECFM' NE 'V').ERR11 00057000 MVC 36(2,1),=CL2'&RECFM' 00058000 AGO .SKIP4 00059000 .STOR4 ANOP 00060000 AIF ('&RECFM(1)' EQ '1').ERR7 00061000 STC &RECFM(1),36(,1) 00062000 .SKIP4 AIF (T'&NOREC EQ 'O').SKIP5 00063000 AIF ('&NOREC'(1,1) EQ '(').STOR5 00064000 AIF ('&NOREC' GT '65533').ERR13 00065100 MVC 38(2,1),=AL2(&NOREC) 00065200 AGO .SKIP5 00066000 .STOR5 ANOP 00067000 AIF ('&NOREC(1)' EQ '1').ERR8 00068000 STH &NOREC(1),38(,1) 00069000 .SKIP5 ANOP 00070000 MVC 0(8,1),=CL8'WRBUF' 00071000 SVC 202 00072000 DC AL4(&ERROR) 00073000 MEXIT 00074000 .NOCB ANOP 00075000 AIF (T'&BUFFER EQ 'O').ERR9 00076000 AIF (T'&BSIZE EQ 'O').ERR10 00077000 CNOP 0,4 00078000 &LABEL BAL 1,DMS&SYSNDX.A 00079000 SPACE 00080000 FSCB &FILEID 00081000 DMS&SYSNDX.A EQU * 00082000 AIF ('&FILEID'(1,1) EQ '(').REG2 00083000 AGO .CONT3 00084000 .ERR1 MNOTE 8,'NEITHER FILEID OR FSCB SPECIFIED' 00085000 MEXIT 00086000 .ERR2 MNOTE 8,'INVALID FILEID SPECIFICATION' 00087000 MEXIT 00088000 .ERR3 MNOTE 8,'REGISTERS 0 AND 1 INVALID FOR FILEID' 00089000 MEXIT 00090000 .ERR4 MNOTE 8,'REGISTER 1 INVALID FOR RECNO' 00091000 MEXIT 00092000 .ERR5 MNOTE 8,'REGISTER 1 INVALID FOR BUFFER' 00093000 MEXIT 00094000 .ERR6 MNOTE 8,'REGISTER 1 INVALID FOR BSIZE' 00095000 MEXIT 00096000 .ERR7 MNOTE 8,'REGISTER 1 INVALID FOR RECFM' 00097000 MEXIT 00098000 .ERR8 MNOTE 8,'REGISTER 1 INVALID FOR NOREC' 00099000 MEXIT 00100000 .ERR9 MNOTE 8,'BUFFER ADDRESS NOT SPECIFIED' 00101000 MEXIT 00102000 .ERR10 MNOTE 8,'BUFFER SIZE NOT SPECIFIED' 00103000 MEXIT 00104000 .ERR11 MNOTE 8,'INVALID RECFM SPECIFICATION' 00105000 MEXIT 00105100 .ERR12 MNOTE 8,'RECNO (&RECNO) EXCEEDS MAX (65533)' 00105200 MEXIT 00105300 .ERR13 MNOTE 8,'NOREC (&NOREC) EXCEEDS MAX (65533)' 00105400 MEND 00106000