В этом посте я опишу как ставить COBOL v4.4(COmmon Business Oriented Language) — один из старейших языков программирования, предназначенный, в первую очередь, для разработки бизнес-приложений.
Устанавливается он посложнее чем предыдущие языки т.к. некоторые файлы повреждены, придется ставить в полуручном режиме и подправить несколько файлов.
Скачиваем cobol_v4_4.zip и приступаем:
sim> att ts0 cobol_v4_4.tpc
sim> boot rp0
[skip]
>hello system
Password:
RSX-11M-PLUS V4.6 BL87 [1,54] System RSXMPL
2-MAR-14 18:40 Logged on Terminal TT0: as SYS2
Good Evening
*****************************************************************
* *
* Welcome to RSX-11M-PLUS *
* *
* Version 4.6 Base level 87 *
* This is file LB:[1,2]LOGIN.TXT *
* *
*****************************************************************
Last interactive login on Sunday, March 2, 2014 18:35:48 (TT0:)
>
>ufd [6,3]
>set /uic=[6,3]
>mou/for ms0:
>flx sy:/rs=ms0:[100,100]inscbl.cmd/do
>ins $edt
>edt inscbl.cmd
1 ;
*239
239 ;
*s/;/.goto 900
239 .goto 900
1 substitution
*ex
DB0:[6,3]INSCBL.CMD;2 350 lines
[m)B
>@inscbl
>;
>; I N S C B L . C M D
>;
>; COPYRIGHT (c) 1982 DIGITAL EQUIPMENT CORP.
>;
>; COMMAND FILE TO INSTALL COBOL V4.4 ONTO AN RSX-11M, 11M+ OR IAS SYSTEM USING
>; VERSION 1.8 OF RMS.
>;
>; YOU MUST BE LOGGED INTO A PRIVILEGED ACCT TO EXECUTE THIS COMMAND FILE.
>;
>; YOU MUST HAVE MOUNTED THE COBOL V4.4 DISTRIBUTION KIT PRIOR TO
>; EXECUTING THIS COMMAND FILE !
>;
>;
>INS $LBR
>;
>* WHAT DEVICE IS YOUR DISTRIBUTION KIT MOUNTED ON (NO COLON)? [S R:2-4]: MS0
>* ARE YOU INSTALLING COBOL ON A PDP-11 WITH CIS ? [Y/N]: n
>* WHAT IS YOUR SYSTEM DEVICE (NO COLON)? [S]: SY
>;
>* ARE YOU INSTALLING COBOL ON AN IAS SYSTEM? [Y/N]: N
>* WHAT DEVICE IS TO BE ASSIGNED FOR THE TASK-BUILD MAP (NO COLON)? [S]: SY
>ASN SY:=MP:
>* WHAT DIRECTORY DO YOU WANT THE COBOL TASKS ASSIGNED TO ([X,Y])? [S]: [6,3]
>;
>; REMOVE OLD COBOL FILES
>;
>PIP LB:[1,1]COBLIB.OLB;*/DE
PIP — No such file(s)
LB:[1,1]COBLIB.OLB;*
>PIP LB:[1,1]COBOVR.OLB;*/DE
PIP — No such file(s)
LB:[1,1]COBOVR.OLB;*
>PIP LB:[1,20]CBLLIB.OLB;*/DE
PIP — No such file(s)
LB:[1,20]CBLLIB.OLB;*
>PIP LB:[1,24]CBLBLD.CMD;*/DE
PIP — No such file(s)
LB:[1,24]CBLBLD.CMD;*
>PIP LB:[1,24]CBLBLD.ODL;*/DE
PIP — No such file(s)
LB:[1,24]CBLBLD.ODL;*
>PIP LB:[1,24]CBLMRG.CMD;*,LB:[1,24]REFRMT.CMD;*/DE
PIP — No such file(s)
LB:[1,24]CBLMRG.CMD;*
PIP — No such file(s)
LB:[1,24]REFRMT.CMD;*
>PIP LB:[6,3]CBLMRG.CBL;*,LB:[6,3]REFRMT.CBL;*/DE
PIP — No such file(s)
LB:[6,3]CBLMRG.CBL;*
PIP — No such file(s)
LB:[6,3]REFRMT.CBL;*
>PIP LB:[6,3]IO001.CBL;*,LB:[6,3]IO002.CBL;*,LB:[6,3]IO003.CBL;*/DE
PIP — No such file(s)
LB:[6,3]IO001.CBL;*
PIP — No such file(s)
LB:[6,3]IO002.CBL;*
PIP — No such file(s)
LB:[6,3]IO003.CBL;*
>PIP SY:[1,34]CBLMRG.MAP;*,SY:[1,34]REFRMT.MAP;*/DE
PIP — No such file(s)
SY:[1,34]CBLMRG.MAP;*
PIP — No such file(s)
SY:[1,34]REFRMT.MAP;*
>PIP SY:[1,34]COBOL.MAP;*/DE
PIP — No such file(s)
SY:[1,34]COBOL.MAP;*
>PIP LB:[1,1]CID.OBJ;*/DE
PIP — No such file(s)
LB:[1,1]CID.OBJ;*
>PIP LB:[1,1]CIROT0.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIROT0.ODL;*
>PIP LB:[1,1]CIROT3.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIROT3.ODL;*
>PIP LB:[1,1]CIO017.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO017.ODL;*
>PIP LB:[1,1]CIO027.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO027.ODL;*
>PIP LB:[1,1]CIO037.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO037.ODL;*
>PIP LB:[1,1]CIO047.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO047.ODL;*
>PIP LB:[1,1]CIO057.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO057.ODL;*
>PIP LB:[1,1]CIO067.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO067.ODL;*
>PIP LB:[1,1]CIO077.ODL;*/DE
PIP — No such file(s)
LB:[1,1]CIO077.ODL;*
>;
>;
>; COPY FILES FROM THE DISTRIBUTION DEVICE
>;
>FLX SY:[6,3] = MS0:[200,200]*.CBL,[200,210]*.*,[200,100]*.*
>;
>; PLACE IN THE APPROPRIATE AREAS
>;
>PIP LB:[6,3]IO001.CBL/NV/RE=SY:[6,3]IO001.CBL
>PIP LB:[6,3]IO002.CBL/NV/RE=SY:[6,3]IO002.CBL
>PIP LB:[6,3]IO003.CBL/NV/RE=SY:[6,3]IO003.CBL
>PIP LB:[1,1]COBLIB.OLB/NV/RE=SY:[6,3]COBLIB.OLB
>PIP LB:[1,1]COBOVR.OLB/NV/RE=SY:[6,3]COBOVR.OLB
>PIP LB:[1,20]CBLLIB.OLB/NV/RE=SY:[6,3]COBBLD.OLB
>PIP LB:[1,24]CBLBLD.ODL/NV/RE=SY:[6,3]CBLBLD.ODL
>PIP LB:[1,24]CBLBLD.CMD/NV/RE=SY:[6,3]CBLBLD.CMD
>PIP LB:[1,24]CBLMRG.CMD/NV/RE=SY:[6,3]CBLMRG.CMD
>PIP LB:[1,24]REFRMT.CMD/NV/RE=SY:[6,3]REFRMT.CMD
>PIP LB:[6,3]CBLMRG.CBL/NV/RE=SY:[6,3]CBLMRG.CBL
>PIP LB:[6,3]REFRMT.CBL/NV/RE=SY:[6,3]REFRMT.CBL
>PIP LB:[1,1]CID.OBJ;1/NV/RE=SY:[6,3]COBCID.OBJ
>;
>; PERFORM INSTALLATION
>@
>edt [1,24]cblbld.cmd
1 ;CBLBLD.CMD
*7
7 COBOL,MP:[1,34]COBOL/-SP=[1,24]CBLBLD/MP
*s|,|/sb,|
7 COBOL/sb,MP:[1,34]COBOL/-SP=[1,24]CBLBLD/MP
1 substitution
*ex
DB0:[1,24]CBLBLD.CMD;2 69 lines
[m)B
>TKB @LB:[1,24]CBLBLD.CMD
>PIP LB:[6,3]COBOL.TSK/NV/RE=LB:[6,3]COBOL.TSK
>INS LB:[6,3]COBOL.TSK
>CBL DB0:[6,3]CBLMRG/-SKL=LB:[6,3]CBLMRG/ERR:2
>TKB @LB:[1,24]CBLMRG.CMD
>CBL DB0:[6,3]REFRMT/-SKL=LB:[6,3]REFRMT/ERR:2
>TKB @LB:[1,24]REFRMT.CMD
>PIP LB:[6,3]CBLMRG.TSK/NV/RE=LB:[6,3]CBLMRG.TSK
>PIP LB:[6,3]REFRMT.TSK/NV/RE=LB:[6,3]REFRMT.TSK
>INS LB:[6,3]CBLMRG.TSK
>INS LB:[6,3]REFRMT.TSK
>CBL DB0:[6,3]IO001/-SKL=LB:[6,3]IO001/ERR:2
>CBL DB0:[6,3]IO002/-SKL=LB:[6,3]IO002/ERR:2
>CBL DB0:[6,3]IO003/-SKL=LB:[6,3]IO003/ERR:2
>TKB IO001=IO001,LB:[1,1]COBLIB/LB,LB:[1,1]RMSLIB/LB
>TKB IO002=IO002,LB:[1,1]COBLIB/LB,LB:[1,1]RMSLIB/LB
>TKB IO003=IO003,LB:[1,1]COBLIB/LB,LB:[1,1]RMSLIB/LB
>run io001
Successful test of COBOL-11 verification program IO001
>run io002
Successful test of COBOL-11 verification program IO002
>run io003
Successful test of COBOL-11 verification program IO003
>
>run $shutup
RSX-11M-PLUS Shut down program
Enter minutes to wait before shutdown: 0
Reason for shutdown ( for none):
OK to shutdown? [Y/N]: Y