Привет из прошлого!

[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

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