* @LOAD    MAKPO - úAçPõúKA HECKOìøKéX ðPOçPAMM C úAðéCøà AäPECA        LOAD0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 29.08.88   BPEMñ 19.08   *  æOKõC  LOAD0002
*    LOAD#ST <éMñ>[,<éMñ>,...][,DCB=<A.DCB>]                            LOAD0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    LOAD0004
         MACRO                                                          LOAD0005
&NAME    @LOAD &DCB=                                                    LOAD0006
         LCLA  &I                                                       LOAD0007
         LCLC  &NM                                                      LOAD0008
&NAME    IHBLABEL                                                       LOAD0009
&I       SETA  1                                                        LOAD0010
.LOAD    LA    0,=CL8'&SYSLIST(&I)' éMñ ðPOçPAMMù                       LOAD0011
         IHBLADR 1,&DCB,EMPTY=ZERO                                      LOAD0012
         SVC   8                 LOAD SVC                               LOAD0013
         ST    0,PGMADR#&SYSLIST(&I)    úAðéCATø AäPEC ðPOçPAMMù        LOAD0014
&I       SETA  &I+1                                                     LOAD0015
         AIF   (&I LE N'&SYSLIST).LOAD                                  LOAD0016
&I       SETA  1                                                        LOAD0017
DSA      LOCTR                                                          LOAD0018
.AREALP  ANOP                                                           LOAD0019
&NM      SETC  'PGMADR#&SYSLIST(&I)'                                    LOAD0020
         AIF   (D'&NM).NEXTDS      .éMñ õöE OðPEäEìEHO ?                LOAD0021
&NM             DS  F            CìOBO äìñ AäPECA ðPOçPAMMù             LOAD0022
.NEXTDS  ANOP                                                           LOAD0023
&I       SETA  &I+1                                                     LOAD0024
         AIF   (&I LE N'&SYSLIST).AREALP                                LOAD0025
&SYSLOC  LOCTR                                                          LOAD0026
         MEND                                                           LOAD0027