DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦21227544e⟧ TextFile

    Length: 6144 (0x1800)
    Types: TextFile
    Names: »eahcfjobx   «

Derivation

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »eahcfjobx   «

TextFile

job eah 1 274004 perm dk290953 1 1,
    size 33000 time 5 0 temp disc 1000 50 stat 1,    dbpack,
    size 30000 stat 1 time 11 0,
        perm dk290953 1000 60 temp disc 3000 150,    dancfjob,
    size 40000 time 9 0,
        temp disc 1000 100 stat 1 mounts 2,          save reltext,
    size 30000 time 3 0,
    test cf    output 200000,                        listning

mode list.yes
skip 12.2


;oversigt over jobs
; skip 12.1 : dbpack
;   -  12.2 : dancfjob
;        .3 :   fortsæt dancfjob
;   -  12.4 : save releasetexter
;   -  12.5 : test cf
;   -  12.6 : flex disc dbpack
\f



message dbpack

t=set mto mtsw8200 0 1
label t t

t=copy list.yes 1
data base package  (cf system)  release 12.1  d.791018

nextfile t
t=copy list.yes 3
; standard job for load of data base package tape: dbpack
t=set mto mtsw8200 0 3
binin t

nextfile t

cat=edit
m e
i/
buflengthcf,
closecf,
connect,
deletechain,
deletel,
deletem,
extendcf,
gethead,
getl,
getm,
getnumbl,
getparamcf,
headl,
headm,
initchain,
initfilem,
initrecm,
insertl,
insertm,
newreclcf,
nextm,
opencf,
protectcf,
putcf,
readonlycf,
readupdcf,
setjumpscf,
setparamcf,
updateallcf,
recnocf,
resultcf,
dbrecdecode
/,
f
r=edit cat
i/
t=binout /, f
i r


skip 123.1
; save kun på eget bånd
cat=edit cat
i/
theadpm,
/, f
save release.no.t.1.label.cfvers12 segm.2 changekit.disc1.disc,
    newscope.temp in.cat
save t.2 segm.2 changekit.disc1.disc newscope.temp ,
   in.cat
;æ

head 1
backfile t
backfile t
c=copy t
nextfile t
c=copy t
nextfile t
binin list.yes t.c

skip 123.1
load release.no.t.1 load.no
load t.2 load.no
;æ

r=edit cat
i/
lookup /, f
i r

r=edit cat
i/
procsurvey /, f
i r
finis
\f


message dancfjob
skip 123.1


opmess mtsw8500 er 543079
t=set mto mtsw8500 0 2
loadjob=copy list.yes t
i loadjob

catsort base.temp
release t
;æ

;mode  listing.yes   ; yes for listning af dbcodes
resultcf=set 16 disc


(
head 1
resultcf = slang fpnames tcf insertproc,
, list.yes xref.yes names.yes,
  entry.no
resultcf recnocf initfilem opencf setjumpscf initchain closecf getm getl,
gethead insertm insertl connect deletem deletel deletechain,
nextm putcf readonlycf readupdcf updateallcf getnumbl,
initrecm getparamcf setparamcf
)
; æ
;lookup jwpap
;convert jwpap std

protectcf = set 5
extendcf = set 4
buflengthcf = set 5
headl = set 5
headm = set 5 

newreclcf = set 5
dbrecdecode=set 5

head 1
protectcf = algol survey.yes bossline.yes spill.yes details.8.8 tprotectcf,
,   list.yes blocks.yes xref.yes

head 1
extendcf = algol survey.yes bossline.yes spill.yes textendcf,
,   list.yes blocks.yes xref.yes

head 1
buflengthcf = algol survey.yes bossline.yes spill.yes tbuflength,
,   list.yes blocks.yes xref.yes

head 1
headl = algol survey.yes bossline.yes spill.yes theadl
,   list.yes blocks.yes xref.yes

head 1
headm = algol survey.yes bossline.yes spill.yes theadm,
,   list.yes blocks.yes xref.yes

head 1
newreclcf = algol survey.yes bossline.yes spill.yes tnewreclcf,
,   list.yes blocks.yes xref.yes

head 1
i tdbcodes

head 1
;lookup jwpap
;convert jwpap std

scope temp resultcf
resultcf = compresslib protectcf dbrecdecode extendcf ,
                       buflengthcf newreclcf
headm = compresslib headl

\f


cfbincat=edit
m e
i/
buflengthcf,
closecf,
connect,
deletechain,
deletel,
deletem,
extendcf,
gethead,
getl,
getm,
getnumbl,
getparamcf,
headl,
headm,
initchain,
initfilem,
initrecm,
insertl,
insertm,
newreclcf,
nextm,
opencf,
protectcf,
putcf,
readonlycf,
readupdcf,
setjumpscf,
setparamcf,
updateallcf,
recnocf,
resultcf,
dbrecdecode,
dbreccreate,
dbrecdescr,
dbrectransf,
initdbtable,
connectdb
/, f

;tape=set mto mt543019
;save release.no.tape.1.label.cfsys6  in.cfbincat
;save release.no.tape.2  in.cfbincat

r1=edit cfbincat
i/
scope user.disc /,
f
i r1

cfbincat=edit cfbincat
i/
lookup /, f
i cfbincat

cfbincat=edit cfbincat
r/lookup/procsurvey/,f
i cfbincat


end
\f


message save release texter
skip 123.1

i retcfsys

rename r.tcf r1.tprotectcf r2.textendcf r3.tbuflength ,
r4.theadl theadm1.theadm rr.tdbcodes
if ok.no
  finis
;æ

cat = edit
m e
i/
cat,
eahcfjobx,
eahdiablo,
retcfsys,
tbuflength,
tcf,
tcfexample,
tdbcodes,
textendcf,
testdbcodes,
theadl,
theadm,
theadpm,
tnewreclcf,
tprotectcf 
/,f

opmess mt543070 med ring
tape=set mto mt543070

(repeat 2

nextfile tape
save release.no.tape.0.label.tcfvers12 segm.2 ,
newscope.temp changekit.disc1.disc changekit.disc1.disc in.cat
)

release tape
head 1
load tape.last survey.yes
rx=edit cat
i/
copy /, f
i rx
finis
\f


message test cfexample

testcf = algol tcfexample spill.yes survey.yes
scope login testcf

master1=set 1
master2=set 1
list   =set 1
descrfile=set 1

testcf

finis
\f


message flex disc dbpack

i eahdiablo

fdinit fdsw8200 double.yes trackf.2

idtext=copy list.yes 1
data base package  (cf system)  release 12.1  d.790910

fdsave fdsw8200.1 newscope.temp newkit.main idtext

loadjob=copy list.yes 5
; standard job for load of data base package from discette
mode list.yes
fdload fdsw8200.3
binin bincf
mode list.no

fdsave fdsw8200.2 newscope.temp newkit.main loadjob

cat=edit
m e
i/
buflengthcf,
closecf,
connect,
deletechain,
deletel,
deletem,
extendcf,
gethead,
getl,
getm,
getnumbl,
getparamcf,
headl,
headm,
initchain,
initfilem,
initrecm,
insertl,
insertm,
newreclcf,
nextm,
opencf,
protectcf,
putcf,
readonlycf,
readupdcf,
setjumpscf,
setparamcf,
updateallcf,
recnocf,
resultcf,
dbrecdecode
/,f
r=edit cat
i/
bincf=binout /,f
i r

fdsave fdsw8200.3 newscope.user newkit.main bincf

r=edit cat
i/
lookup /,f
i r

r=edit cat
i/
procsurvey /,f
i r

finis
▶EOF◀