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