* @GETDD   MAKPO - BùäATø AäPEC üìEMEHTA DD B TIOT                      ETDD0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 20.10.88   BPEMñ 22.08   *  æOKõC  ETDD0002
*   @GETDD '<éMñ DD>'/<AäPEC éMEHé DD>[,RTIOT=<PEçéCTP C AäP. TIOT>]    ETDD0003
*         [,ERR=<AäPEC ðEPEXOäA, ECìé HE HAêäEH>] - TOìøKO 1 PAú !      ETDD0004
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    ETDD0005
         MACRO                                                          ETDD0006
&NAME    @GETDD &DD,&RTIOT=,&ERR=                                       ETDD0007
         LCLC  &RTIO,&ERRAD                                             ETDD0008
&RTIO    SETC  '&RTIOT'                                                 ETDD0009
&ERRAD   SETC  '&ERR'                                                   ETDD0010
         AIF   ('&ERR' NE '').DD                                        ETDD0011
&ERRAD   SETC  '@GETDDNF'                                               ETDD0012
.DD      AIF   ('&DD'(1,1) EQ '''').DDNAME                              ETDD0013
&NAME    IHBLADR 1,&DD,'AäPEC éMEHé DD'                                 ETDD0014
         AGO   .TIOT                                                    ETDD0015
.DDNAME  ANOP                                                           ETDD0016
&NAME    LA    1,=CL8&DD                                                ETDD0017
.*                                                                      ETDD0018
.TIOT    AIF   ('&RTIO' NE '').LTIOTA                                   ETDD0019
         AIF   (NOT D'RTIOT).GETTIOT                                    ETDD0020
&RTIO    SETC  'RTIOT'                                                  ETDD0021
.LTIOTA  IHBLADR 15,24(&RTIO)                                           ETDD0022
         BAL   14,@GETDD                                                ETDD0023
         AGO   .SUB                                                     ETDD0024
.GETTIOT ANOP                                                           ETDD0025
         BAL   14,@GETDD1                                               ETDD0026
.SUB     AIF   (D'@GETDD).TESTERR                                       ETDD0027
 SPACE 2                                                                ETDD0028
*********************************************************************** ETDD0029
*   ðð ðOéCKA üì-TA DD B TIOT                                         * ETDD0030
*********************************************************************** ETDD0031
SUBPGMS LOCTR                                                           ETDD0032
         AIF   ('&RTIO' NE '').GETDD                                    ETDD0033
@GETDD1  L     15,16             CVT                                    ETDD0034
         L     15,0(15)          CVTDW                                  ETDD0035
         L     15,4(15)          TCB                                    ETDD0036
         L     15,12(15)         TIOT                                   ETDD0037
         LA    15,24(15)         1-ST DD ENTRY                          ETDD0038
.GETDD   ANOP                                                           ETDD0039
@GETDD   XR    0,0                                                      ETDD0040
         IC    0,0(15)           äìéHA üì-TA DD                         ETDD0041
         LTR   0,0               KOHEã TIOT ?                           ETDD0042
         IHBBC Z,&ERRAD                                                 ETDD0043
         CLC   0(8,1),4(15)      HAû DD ?                               ETDD0044
         BER   14                äA - BOúBPAT                           ETDD0045
         AR    15,0              AäPEC CìEäõàýEçO                       ETDD0046
         B     @GETDD+2                                                 ETDD0047
         AIF   ('&ERR' NE '').ESP                                       ETDD0048
@GETDDNF XR    15,15             0 B R15 - ðPéúHAK - HE HAêäEH          ETDD0049
         BR    14                BOúBPAT                                ETDD0050
.ESP     ANOP                                                           ETDD0051
&SYSLOC LOCTR                                                           ETDD0052
         MEXIT                                                          ETDD0053
.TESTERR AIF   ('&ERR' EQ '' AND '&RTIOT' EQ '').END                    ETDD0054
         MNOTE 8,'''ERR'' é ''RTIOT'' MOöHO õKAúùBATø TOìøKO B 1 MAKPOK*ETDD0055
               OMAHäE'                                                  ETDD0056
.END     MEND                                                           ETDD0057