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