MACRO 00001000
&LABEL PUNCHC &BUFFER,&ERROR=*+4 00002000
AIF (T'&BUFFER EQ 'O').ERR1 00003000
CNOP 0,4 00004000
AIF ('&BUFFER'(1,1) EQ '(').REG 00005000
AIF ('&BUFFER'(1,1) EQ '''').QUO 00006000
&LABEL BAL 1,DMS&SYSNDX.A 00007000
DC CL8'CARDPH' 00008000
DC AL4(&BUFFER) 00009000
DMS&SYSNDX.A SVC 202 00010000
DC AL4(&ERROR) 00011000
MEXIT 00012000
.REG ANOP 00013000
&LABEL ST &BUFFER(1),DMS&SYSNDX.B 00014000
BAL 1,DMS&SYSNDX.A 00015000
DC CL8'CARDPH' 00016000
DMS&SYSNDX.B DC AL4(0) 00017000
DMS&SYSNDX.A SVC 202 00018000
DC AL4(&ERROR) 00019000
MEXIT 00020000
.QUO ANOP 00021000
&LABEL BAL 1,DMS&SYSNDX.A 00022000
DC CL8'CARDPH' 00023000
DC AL4(DMS&SYSNDX.B) 00024000
DMS&SYSNDX.B DC CL80&BUFFER 00025000
DMS&SYSNDX.A SVC 202 00026000
DC AL4(&ERROR) 00027000
MEXIT 00028000
.ERR1 MNOTE 8,'BUFFER ADDRESS NOT SPECIFIED' 00029000
MEND 00030000