* SNAPDCB  MAKPO - DCB äìñ SNAP                                         PDCB0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.04.88   BPEMñ 20.00   *  æOKõC  PDCB0002
*    SNAPDCB [DDNAME=SYSSNAP,RECFM=VBA,BLKSIZE=1632,LRECL=125]          PDCB0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    PDCB0004
         MACRO                                                          PDCB0005
&NAME    SNAPDCB &DDNAME=SYSSNAP,&RECFM=VBA,&BLKSIZE=1632,&LRECL=125    PDCB0006
&NAME    DCB   DSORG=PS,MACRF=(W),                                     *PDCB0007
               RECFM=&RECFM,BLKSIZE=&BLKSIZE,LRECL=&LRECL,             *PDCB0008
               DDNAME=&DDNAME                                           PDCB0009
         MEND                                                           PDCB0010