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