MACRO                                                          01000010
&NAME    ICOPY &DDN,&RLN,&WORK,&TINDEX=NO                      @OZ09941 02000010
.*D030000                                                       SA51790 02600010
.*C090000-140000,470000-480000                                  SA51790 03200010
.*C020000,410000                                               @OZ09941 03200110
.*A040000,460000,680000                                        @OZ09941 03200210
         AIF   (N'&SYSLIST NE 3).ERR0                                   04000010
         AIF   ('&TINDEX' NE 'NO' AND '&TINDEX' NE 'YES').ERR6 @OZ09941 04500010
         AIF   ('&DDN' EQ '' OR '&RLN' EQ '' OR '&WORK' EQ '').ERR0     05000010
         AIF   ('&DDN' EQ '(0)').ERR1                                   06000010
         AIF   ('&WORK' EQ '(0)' OR '&WORK' EQ '(1)').ERR2              07000010
&NAME    DS    0H                                                       08000010
.*             VERSION DATED JUNE 1,1976                       @OZ09941 11000010
         AIF   ('&RLN' EQ '(0)').DDNAME                                 15000010
         AIF   ('&RLN'(1,1) NE '(').LA                                  16000010
         LR    0,&RLN(1) .              RELATIVE LINE NUMBER            17000010
         AGO   .DDNAME                                                  18000010
.LA      ANOP                                                           19000010
         AIF   ('&RLN' LE '0' OR '&RLN' GE '256').ERR4                  20000010
         LA    0,&RLN .                 RELATIVE LINE NUMBER            21000010
.DDNAME  ANOP                                                           22000010
         AIF   ('&DDN' EQ '(1)').SHIFT                                  23000010
         AIF   ('&DDN'(1,1) NE '(').LA1                                 24000010
         LR    1,&DDN(1) .              ADDRESS OF DDNAME               25000010
         AGO   .SHIFT                                                   26000010
.LA1     ANOP                                                           27000010
         AIF   (K'&DDN GT 8).ERR3                                       28000010
         AIF   (('&DDN'(1,1) GE 'A' AND '&DDN'(1,1) LE 'Z') OR         X29000010
               '&DDN'(1,1) EQ '$' OR '&DDN'(1,1) EQ '@' OR             X30000010
               '&DDN'(1,1) EQ '#').DDOK                                 31000010
         AGO   .ERR3                                                    32000010
.DDOK    ANOP                                                           33000010
         BAL   1,*+12 .                 ADDRESS OF DDNAME               34000010
         DC    CL8'&DDN' .              DDNAME                          35000010
.SHIFT   ANOP                                                           36000010
         SLL   1,8 .                    POSITION ADDR OF DDNAME         37000010
         SLDL  0,24 .                   POSITION RLN AND ADDR OF        38000010
*                                       DDNAME IN REGISTER 0            39000010
         AIF   ('&WORK'(1,1) NE '(').LA2                                40000010
         LA    1,0(,&WORK(1))           ADDR OF WORKAREA TO R1 @OZ09941 41000010
         AGO   .CALL                                                    42000010
.LA2     ANOP                                                           43000010
         AIF   (K'&WORK GT 8).ERR5                                      44000010
         LA    1,&WORK .                ADDRESS OF WORKAREA TO R1       45000010
.CALL    ANOP                                                           46000010
         AIF   ('&TINDEX' EQ 'NO').CALL1                       @OZ09941 46100010
         CNOP  0,4                                             @OZ09941 46200010
         B     *+8                                             @OZ09941 46300010
         DC    X'80000000'                                     @OZ09941 46400010
         O     1,*-4                    SET EXTENDED ICOPY BIT @OZ09941 46500010
.CALL1   ANOP                                                  @OZ09941 46600010
         LINK  EP=IEDQE4                                        SA51790 47000010
         MEXIT                                                          49000010
.ERR0    ANOP                                                           50000010
         MNOTE 12,'*** IHB004 REQUIRED OPERAND(S) NOT SPECIFIED'        51000010
         MEXIT                                                          52000010
.ERR1    ANOP                                                           53000010
         MNOTE 12,'*** IHB078 DDNAME OPERAND REGISTER NOTATION         *54000010
               INVALID . (0)'                                           55000010
         MEXIT                                                          56000010
.ERR2    ANOP                                                           57000010
         MNOTE 12,'*** IHB078 WORKAREA OPERAND REGISTER NOTATION       *58000010
               INVALID - (0) OR (1)'                                    59000010
         MEXIT                                                          60000010
.ERR3    ANOP                                                           61000010
         MNOTE 12,'*** IHB002 INVALID DDNAME OPERAND SPECIFIED'         62000010
         MEXIT                                                          63000010
.ERR4    ANOP                                                           64000010
         MNOTE 12,'*** IHB002 INVALID RLN OPERAND SPECIFIED'            65000010
         MEXIT                                                          66000010
.ERR5    ANOP                                                           67000010
         MNOTE 12,'*** IHB002 INVALID WORKAREA OPERAND SPECIFIED'       68000010
         MEXIT                                                 @OZ09941 68200010
.ERR6    ANOP                                                  @OZ09941 68400010
         MNOTE 12,'*** IHB002 INVALID TINDEX OPERAND SPECIFIED'         68600010
         MEND                                                           69000010