|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1024 (0x400)
Notes: MEMBER_S, Member_Text
Names: »KOBL «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦b16ff4453⟧
└─⟦this⟧ ».KOBL «
M}nedsk¦rsel vil blive blokeret af en eventuel tom integrationsfile.
Situationen kan opst}, hvis man fortryder en indtastning af posteringer.
Rettelse pr. 4/6 1984.
// IFF DATAF1-$$.INT?1? PAUSE '* DER FINDES INGEN $$.INT?1?-FILE P$ DISKEN *'
add // IF DATAF1-$$.INT?1? IF ?F'A,$$.INT?1?'?/00000000 DELETE $$.INT?1?,F1
// IFF DATAF1-$$.INT?1? CANCEL
slet // IF ?F'A,$$.INT?1?'?/00000000 PAUSE 'DER ER INGEN POSTERINGER'
slet // IF ?F'A,$$.INT?1?'?/00000000 RETURN
NB. Husk at rette $$ til eget suffix.
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
I forbindelse med ovenst}ende kan det ske at kun den f¦rste
af de to files overf¦res ved brug af punkt 10 p} menu KOBL
Fejlen rettes ved i det midterste af de 5 ovest}ende statements
at {ndre CANCEL til RETURN
Rettet pr. 31/12 1984.
0x000…001 0x60
0x001…002 0x09
0x002…003 0xc4
0x003…047 »M}nedsk¦rsel vil blive blokeret af en eventuel tom integrationsfile.«
0x047…048 0x13
0x048…049 0x09
0x049…04a 0xc8
0x04a…092 »Situationen kan opst}, hvis man fortryder en indtastning af posteringer.«
0x092…093 0x0f
0x093…094 0x60
0x094…095 0x09
0x095…096 0x96
0x096…0ac »Rettelse pr. 4/6 1984.«
0x0ac…0ad 0x41
0x0ad…0ae 0x60
0x0ae…0af 0x05
0x0af…0b0 0xcd
0x0b0…0fd »// IFF DATAF1-$$.INT?1? PAUSE '* DER FINDES INGEN $$.INT?1?-FILE P$ DISKEN *'«
0x0fd…0fe 0x0e
0x0fe…0ff 0x83
0x0ff…102 »add«
0x102…103 0x02
0x103…104 0xc7
0x104…14b »// IF DATAF1-$$.INT?1? IF ?F'A,$$.INT?1?'?/00000000 DELETE $$.INT?1?,F1«
0x14b…14c 0x14
0x14c…14d 0x05
0x14d…14e 0x9e
0x14e…16c »// IFF DATAF1-$$.INT?1? CANCEL«
0x16c…16d 0x3d
0x16d…16e 0xc5
0x16e…1b3 »slet // IF ?F'A,$$.INT?1?'?/00000000 PAUSE 'DER ER INGEN POSTERINGER'«
0x1b3…1b4 0x1b
0x1b4…1b5 0xab
0x1b5…1e0 »slet // IF ?F'A,$$.INT?1?'?/00000000 RETURN«
0x1e0…1e1 0x35
0x1e1…1e2 0x60
0x1e2…1e3 0x09
0x1e3…1e4 0xa5
0x1e4…209 »NB. Husk at rette $$ til eget suffix.«
0x209…20a 0x32
0x20a…20b 0x60
0x20b…20c 0xd0
0x20c…25c »--------------------------------------------------------------------------------«
0x25c…25d 0x10
0x25d…25e 0xd0
0x25e…2ae »--------------------------------------------------------------------------------«
0x2ae…2af 0x10
0x2af…2b0 0x60
0x2b0…2b1 0x09
0x2b1…2b2 0xbb
0x2b2…2ed »I forbindelse med ovenst}ende kan det ske at kun den f¦rste«
0x2ed…2ee 0x1c
0x2ee…2ef 0x09
0x2ef…2f0 0xba
0x2f0…32a »af de to files overf¦res ved brug af punkt 10 p} menu KOBL«
0x32a…32b 0x1d
0x32b…32c 0x09
0x32c…32d 0xbf
0x32d…36c »Fejlen rettes ved i det midterste af de 5 ovest}ende statements«
0x36c…36d 0x18
0x36d…36e 0x09
0x36e…36f 0x9a
0x36f…389 »at {ndre CANCEL til RETURN«
0x389…38a 0x3d
0x38a…38b 0x60
0x38b…38c 0x09
0x38c…38d 0x96
0x38d…3a3 »Rettet pr. 31/12 1984.«
0x3a3…3a4 0x41
0x3a4…3a5 0x60
0x3a5…3a6 0x00
0x3a6…3c0 40 d7 d6 e2 e3 c5 d9 c9 d5 c7 c5 d9 7d 1b ab a2 93 85 a3 40 61 61 40 c9 c6 40 ┆ POSTERINGER' ¿slet // IF ┆
0x3c0…3e0 6f c6 7d c1 6b 5b 5b 4b c9 d5 e3 6f f1 6f 7d 6f 61 f0 f0 f0 f0 f0 f0 f0 f0 40 d9 c5 e3 e4 d9 d5 ┆?F'A,$$.INT?1?'?/00000000 RETURN┆
0x3e0…400 35 60 09 a5 d5 c2 4b 40 c8 a4 a2 92 40 81 a3 40 99 85 a3 a3 85 40 5b 5b 40 a3 89 93 40 85 87 85 ┆ - vNB. Husk at rette $$ til ege┆