* @PUNCH   MAKPO - BùBOä úAðéCé B SYSPUNCH                              UNCH0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 18.11.88   BPEMñ 12.45   *  æOKõC  UNCH0002
*   @PUNCH <AäPEC OâìACTé>                                              UNCH0003
*   @PUNCH 0       - CLOSE                                              UNCH0004
* BùúùBAETCñ ðPOçPAMMA PUNCHPGM; ðPé BùXOäE B R15 - KOä BOúBPATA:       UNCH0005
*                                0  - OðEPAãéñ BùðOìHEHA õCðEûHO        UNCH0006
*                                ^0 - OûéâKA B/B; DCB úAKPùT            UNCH0007
* DCB: DDNAME=SYSPUNCH; RECFM=FB;  LRECL=80;  BLKSIZE=                  UNCH0008
*   äOúAðOìHEHéE ðPé OPEN: BLKSIZE=80                                   UNCH0009
*   BHEûHEE éMñ - PUNCHDCB                                              UNCH0010
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    UNCH0011
         MACRO                                                          UNCH0012
&NAME    @PUNCH &LINE                                                   UNCH0013
&NAME    IHBLADR 0,&LINE                                                UNCH0014
         AIF   (NOT D'PGMADR#PUNCHPGM).VC                               UNCH0015
         L     15,PGMADR#PUNCHPGM                                       UNCH0016
         AGO   .BALR                                                    UNCH0017
.VC      L     15,=V(PUNCHPGM)                                          UNCH0018
.BALR    BALR  14,15                                                    UNCH0019
         MEND                                                           UNCH0020