MACRO                                                          00001000
&LABEL   FSSTATE &FILEID,&FSCB=,&ERROR=,&FORM=                          00002100
         GBLC  &DMSNAME,&DMSTYPE,&DMSMODE                               00003000
         AIF   (T'&FORM EQ 'O').NOFORM                                  00003100
         AIF   ('&FORM' EQ 'E').FORME                                   00003200
         MNOTE 8,'Error: FSSTATE FORM=&FORM parameter not valid'        00003300
         MEXIT                                                          00003400
.FORME   ANOP                                                           00003500
         MNOTE 4,'Warning: FSSTATE FORM=E accepted but not implemented' 00003600
.NOFORM  ANOP                                                           00003700
         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 '1').ERR3     00007000
         AIF ('&FILEID'(1,1) EQ '(' AND '&FILEID(1)' EQ '0').ERR4 P0270 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'STATE'                                       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
         MVC   40(4,1),28(1)                                            00036000
         SVC   202                                                      00037000
         AIF   (T'&ERROR EQ 'O').NOER                                   00038000
         DC    AL4(&ERROR)                                              00039000
         AGO   .CONT3                                                   00040000
.NOER    ANOP                                                           00041000
         DC    AL4(DMS&SYSNDX.B)                                        00042000
.CONT3   ANOP                                                           00043000
         L     15,28(,1)                                                00044000
         MVC   28(4,1),40(1)                                            00045000
         LR    1,15                                                     00046000
         SR    15,15                                                    00047000
         AIF   (T'&ERROR NE 'O').EXIT                                   00048000
DMS&SYSNDX.B EQU *                                                      00049000
.EXIT    MEXIT                                                          00050000
.NOCB    ANOP                                                           00051000
         CNOP  0,4                                                      00052000
&LABEL   BAL   1,DMS&SYSNDX.A                                           00053000
         DC    CL8'STATE'                                               00054000
         DC    CL8'&DMSNAME'                                            00055000
         DC    CL8'&DMSTYPE'                                            00056000
         DC    CL2'&DMSMODE'                                            00057000
         DC    CL2' '                                                   00058000
         DC    AL4(0)                                                   00059000
DMS&SYSNDX.A EQU *                                                      00060000
         AIF   ('&FILEID'(1,1) NE '(').SKIP2                            00061000
         MVC   8(18,1),0(&FILEID(1))                                    00062000
.SKIP2   ANOP                                                           00063000
         SVC   202                                                      00064000
         AIF   (T'&ERROR EQ 'O').NERR                                   00065000
         DC    AL4(&ERROR)                                              00066000
         AGO   .SKIP3                                                   00067000
.NERR    ANOP                                                           00068000
         DC    AL4(*+8)                                                 00069000
.SKIP3   ANOP                                                           00070000
         L     1,28(,1)                                                 00071000
         MEXIT                                                          00072000
.ERR1    MNOTE 8,'NEITHER FILEID OF FSCB SPECIFIED'                     00073000
         MEXIT                                                          00074000
.ERR2    MNOTE 8,'INVALID FILEID SPECIFICATION'                         00075000
         MEXIT                                                          00076000
.ERR3    MNOTE 8,'REGISTER 1 INVALID FOR FILEID'                        00077000
         MEXIT                                                    P0270 00078000
.ERR4    MNOTE 8,'INVALID USE OF REGISTER 0'                      P0270 00079000
         MEND                                                           00080000