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