MACRO                                                          00001000
&LABEL   FSCLOSE &FILEID,&FSCB=,&ERROR=*+4                              00002000
         GBLC  &DMSNAME,&DMSTYPE,&DMSMODE                               00003000
         AIF   (T'&FILEID EQ 'O' AND T'&FSCB EQ 'O').ERR1               00004000
         AIF   (T'&FILEID EQ 'O').NOID                                  00005000
         AIF   ('&FILEID'(1,1) NE '''' AND '&FILEID'(1,1) NE '(').ERR2  00006000
         AIF   ('&FILEID'(1,1) EQ '(' AND '&FILEID(1)' EQ '0').ERR3     00007000
         AIF   ('&FILEID'(1,1) EQ '(' AND '&FILEID(1)' EQ '1').ERR3     00008000
&DMSNAME SETC  ' '                                                      00009000
&DMSTYPE SETC  ' '                                                      00010000
&DMSMODE SETC  ' '                                                      00011000
         AIF   ('&FILEID'(1,1) EQ '(').SKIP1                            00012000
&DMSMODE SETC  'A1'                                                     00013000
         DMSPID &FILEID                                                 00014000
         AIF   ('&DMSNAME' EQ ' ' OR '&DMSTYPE' EQ ' ').ERR2            00015000
.SKIP1   AIF   (T'&FSCB EQ 'O').NOCB                                    00016000
.NOID    AIF   (T'&LABEL EQ 'O').NLBL                                   00017000
&LABEL   DS    0H                                                       00018000
.NLBL    ANOP                                                           00019000
         AIF   ('&FSCB'(1,1) EQ '(').REG1                               00020000
         LA    1,&FSCB                                                  00021000
         AGO   .CONT1                                                   00022000
.REG1    AIF   ('&FSCB(1)' EQ '1').CONT1                                00023000
         LR    1,&FSCB(1)                                               00024000
.CONT1   ANOP                                                           00025000
         MVC   0(8,1),=CL8'FINIS'                                       00026000
         AIF   (T'&FILEID EQ 'O').CONT2                                 00027000
         AIF   ('&FILEID'(1,1) EQ '(').REG2                             00028000
         MVC   8(8,1),=CL8'&DMSNAME'                                    00029000
         MVC   16(8,1),=CL8'&DMSTYPE'                                   00030000
         MVC   24(2,1),=CL2'&DMSMODE'                                   00031000
         AGO   .CONT2                                                   00032000
.REG2    ANOP                                                           00033000
         MVC   8(18,1),0(&FILEID(1))                                    00034000
.CONT2   ANOP                                                           00035000
         SVC   202                                                      00036000
         DC    AL4(&ERROR)                                              00037000
         MEXIT                                                          00038000
.NOCB    ANOP                                                           00039000
         CNOP  0,4                                                      00040000
&LABEL   BAL   1,DMS&SYSNDX.A                                           00041000
         DC    CL8'FINIS'                                               00042000
         DC    CL8'&DMSNAME'                                            00043000
         DC    CL8'&DMSTYPE'                                            00044000
         DC    CL2'&DMSMODE'                                            00045000
DMS&SYSNDX.A EQU *                                                      00046000
         AIF   ('&FILEID'(1,1) NE '(').SKIP2                            00047000
         MVC   8(18,1),0(&FILEID(1))                                    00048000
.SKIP2   ANOP                                                           00049000
         SVC   202                                                      00050000
         DC    AL4(&ERROR)                                              00051000
         MEXIT                                                          00052000
.ERR1    MNOTE 8,'NEITHER FILEID OR FSCB SPECIFIED'                     00053000
         MEXIT                                                          00054000
.ERR2    MNOTE 8,'INVALID FILEID SPECIFICATION'                         00055000
         MEXIT                                                          00056000
.ERR3    MNOTE 8,'REGISTERS 0 AND 1 INVALID FOR FILEID'                 00057000
         MEND                                                           00058000