* @GETIN   MAKPO - þTEHéE úAðéCé éú SYSIN                               @GET0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 18.11.88   BPEMñ 12.51   *  æOKõC  @GET0002
*   @GETIN <AäPEC OâìACTé>                                              @GET0003
*   @GETIN 0       - CLOSE                                              @GET0004
* BùúùBAETCñ ðPOçPAMMA GETPGM;   ðPé BùXOäE B R15 - KOä BOúBPATA:       @GET0005
*                                0  - OðEPAãéñ BùðOìHEHA õCðEûHO        @GET0006
*                                >0 - OûéâKA B/B; DCB úAKPùT            @GET0007
*                                <0 - EOF; DCB úAKPùT                   @GET0008
* DCB: DDNAME=SYSIN;    RECFM=FB;  LRECL=80;  BLKSIZE=                  @GET0009
*   äOúAðOìHEHéE ðPé OPEN: BLKSIZE=80                                   @GET0010
*   BHEûHEE éMñ - INDCB                                                 @GET0011
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    @GET0012
         MACRO                                                          @GET0013
&NAME    @GETIN &AREA                                                   @GET0014
&NAME    IHBLADR 0,&AREA                                                @GET0015
         AIF   (NOT D'PGMADR#GETPGM).VC                                 @GET0016
         L     15,PGMADR#GETPGM                                         @GET0017
         AGO   .BALR                                                    @GET0018
.VC      L     15,=V(GETPGM)                                            @GET0019
.BALR    BALR  14,15                                                    @GET0020
         MEND                                                           @GET0021