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

[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

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

Comments

[http://users.livejournal.com/kunitsa_/]

Ну, некоторые и до сих пор пишут подобное...Но это не я. )) А когда-то да, создавала что-то такое..жуть, если вдуматься.

[azoto-moto.livejournal.com]

В детстве это все казалось какой-то игрой (я имею в виду все, кроме кобола :). А теперь это все больше на какую-то работу похоже.

[badula.livejournal.com]

В первом не вспомнил, как ни напрягался, как понять VOL=SER=, во втором полагается двинуть канделябром за номера регистров вместо принятых макросов Rxx. Мусор, конечно, но в голову вколочено прочно.

[moon-aka-sun.livejournal.com]

1) Там как бы VOL(ume) = "SER(ial-number)=...[,other-params]", но кавычки тогда ещё не вошли в моду.
2) Не, не было тогда так заведено. Так и писали всегда номера регистров, и помнили все соглашения: 12 - базовый регистр, 13 - адрес области сохранения, 14 - возврат, 15 - тоже что-то.

[badula.livejournal.com]

Было-было заведено. R0, R1, R2, R3 и до конца. Хрестоматия этого ремесла в самом начале сообщала что для лучшего понимания номера регистров заменяются макросами.
А вот код команды "диагностика" от зубов отскакивает?

[moon-aka-sun.livejournal.com]

Нет, уже ничего не отскакивает. Всё уже отскочило.