* LOAD#ST  MAKPO - úAçPõúKA HECKOìøKéX ðPOçPAMM C úAðéCøà AäPECA        D#ST0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.04.88   BPEMñ 19.51   *  æOKõC  D#ST0002
*    LOAD#ST <éMñ>,<CìOBO äìñ AäPECA>[,<éMñ>,<CìOBO>,...][,DCB=<A.DCB>] D#ST0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    D#ST0004
         MACRO                                                          D#ST0005
&NAME    LOAD#ST &DCB=                                                  D#ST0006
         LCLA  &I                                                       D#ST0007
&NAME    IHBLABEL                                                       D#ST0008
&I       SETA  1                                                        D#ST0009
.LOAD    LA    0,=CL8'&SYSLIST(&I)' éMñ ðPOçPAMMù                       D#ST0010
         IHBLADR 1,&DCB,EMPTY=ZERO                                      D#ST0011
         SVC   8                 LOAD SVC                               D#ST0012
         ST    0,&SYSLIST(&I+1)  úAðéCATø AäPEC ðPOçPAMMù               D#ST0013
&I       SETA  &I+2                                                     D#ST0014
         AIF   (&I LE N'&SYSLIST).LOAD                                  D#ST0015
         MEND                                                           D#ST0016