MACRO                                                          00010000
&NAME    @RGCK &FLD,&REG=,&LEN=,&TYPE=C                                 00020000
.*                                                                      00030000
         AIF   ('&FLD'(1,1) NE '(').NOREG                               00040000
         AIF   ('&FLD(1)'  EQ '&REG').DONE                              00050000
.*                                                                      00060000
         AIF   ('&FLD(1)' EQ 'R0').LR                                   00070000
         AIF   ('&FLD(1)' EQ 'R1').LR                                   00080000
         AIF   ('&FLD(1)' EQ 'R2').LR                                   00090000
         AIF   ('&FLD(1)' EQ 'R3').LR                                   00100000
         AIF   ('&FLD(1)' EQ 'R4').LR                                   00110000
         AIF   ('&FLD(1)' EQ 'R5').LR                                   00120000
         AIF   ('&FLD(1)' EQ 'R6').LR                                   00130000
         AIF   ('&FLD(1)' EQ 'R7').LR                                   00140000
         AIF   ('&FLD(1)' EQ 'R8').LR                                   00150000
         AIF   ('&FLD(1)' EQ 'R9').LR                                   00160000
         AIF   ('&FLD(1)' EQ 'R10').LR                                  00170000
         AIF   ('&FLD(1)' EQ 'R11').LR                                  00180000
         AIF   ('&FLD(1)' EQ 'R12').LR                                  00190000
         AIF   ('&FLD(1)' EQ 'R13').LR                                  00200000
         AIF   ('&FLD(1)' EQ 'R14').LR                                  00210000
         AIF   ('&FLD(1)' EQ 'R15').LR                                  00220000
.*                                                                      00230000
&NAME    L     &REG,&FLD(1)                                             00240000
         MEXIT ,                                                        00250000
.*                                                                      00260000
.*                                                                      00270000
.LR      ANOP  ,                                                        00280000
&NAME    LR    &REG,&FLD(1)                                             00290000
.DONE    ANOP  ,                                                        00300000
         MEXIT ,                                                        00310000
.*                                                                      00320000
.*                                                                      00330000
.NOREG   ANOP  ,                                                        00340000
         AIF   ('&FLD'(1,1) EQ '''').STRING                             00350000
&NAME    LA    &REG,&FLD(1)                                             00360000
         MEXIT ,                                                        00370000
.*                                                                      00380000
.*                                                                      00390000
.STRING  ANOP  ,                                                        00400000
         AIF   (T'&LEN EQ 'O').NOLEN                                    00410000
&NAME    LA    &REG,=&TYPE.L&LEN&FLD                                    00420000
         MEXIT ,                                                        00430000
.NOLEN   ANOP  ,                                                        00440000
&NAME    LA    &REG,=&TYPE&FLD                                          00450000
         MEND                                                           00460000