moon_aka_sun

А ведь знал и умел когда-то.

//MWCALPRC JOB (ZZXZ,504,A),'ALP PROCS',CLASS=A,MSGCLASS=D
//*  EXEC  PDSALLOC,NAME='ZZXZMWC.ALP.PROCS.TESTLIB',DISK=TMP003,SIZE=5
//   EXEC  PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//*SYSUT2  DD DSN=ZZXZMWC.ALP.PROCS.TESTLIB,UNIT=FILE,VOL=SER=TMP003,
//*           DISP=OLD,DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600)
//SYSUT2   DD DSN=NIH.VPROCLIB,DISP=SHR
//SYSIN    DD DATA
//ST1      EXEC PGM=IEFBR14
//DD1      DD  DISP=(NEW,KEEP),DSN=SYS1.VTOCIX.VPWRKC,
//         SPACE=(ABSTR,(90,49920)),UNIT=3390,VOL=SER=VPWRKC
//INSP1    EXEC PGM=ICKDSF
//IX       DD  UNIT=3390,VOL=SER=VPWRKC,DISP=OLD
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
  BUILDIX DDNAME(IX) IXVTOC
/*

Или такое

PRINTOUT START

         STM    14,12,12(13)
         BALR   12,0
         USING  *,12
         ST     13,SAVEAREA+4
         LA     13,SAVEAREA
         B      INIT

MASACB   ACB    DDNAME=MASDS,AM=VSAM,MACRF=(KEY,SEQ,OUT)
MASRPL   RPL    ACB=MASACB,OPTCD=(KEY,SEQ,NUP,MVE,SYN),               X
                AREA=RECORD,AREALEN=80,RECLEN=20
TRANDCB  DCB    DDNAME=TRANDS,DSORG=PS,MACRF=GM,LRECL=80,             X
                BLKSIZE=80,RECFM=F
RECORD   DC     CL20'ABC'
         DC     CL60' '

INIT     EQU *
*        OPEN   (DCB1,ABC01,DCB2,OUTPUT)
         OPEN   MASACB
         PUT    RPL=MASRPL
         CLOSE  MASACB

         L      13,SAVEAREA+4
         LM     14,12,12(13)
         BR     14

SAVEAREA DS     18F

         END

Как забытые иностранные языки теперь. Прочитать можно, а написать — нет.