|
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: 2048 (0x800)
Notes: MEMBER_P, Member_Text
Names: »BOG400 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦1fc10e824⟧
└─⟦this⟧ ».BOG400 «
* PROCEDURE B O G 4 0 0 * $RSAFSLUTNING // MEMBER USER1-BOGMSG // ERR 1230,03 // * '* KONTROL AF DAGLIGE K@RSLERS NORMALE AFSLUTNING' // IF DATAF1-ZZB.T130 BOGERR 0140,,,T130,C // IF DATAF1-ZZB.T120 BOGERR 0140,,,T120,C * HER KAN INDS#TTES BOGSTAVER ANVENDT FOR SK#RM-ID AF HENSYN TIL KONTROL // LOCAL DATA-'W ' ** LOCAL DATA-'ABCDEFGHIJKLMNOPQRSTUVWXYZ ' // EVALUATE P2,2=1 // TAG NYTBOG // IF ?L'?2?,1'?/ GOTO END2 // EVALUATE ?3F'?L'?2?,1'?'? // EVALUATE P1,1=0 // TAG IGEN // IF DATAF1-ZZB.T3?3??1? BOGERR 0140,,,T3?3??1?,C // IF DATAF1-ZZB.T2?3??1? BOGERR 0140,,,T2?3??1?,C // IF DATAF1-ZZB.L1?3??1? BOGERR 0140,,,L1?3??1?,C // IF DATAF1-ZZB.TR?3??1? BOGERR 0140,,,TR?3??1?,C // IF ?1?/9 GOTO END1 // EVALUATE P1=?1?+1 // GOTO IGEN // TAG END1 // EVALUATE P2=?2?+1 // GOTO NYTBOG // TAG END2 // IF DATAF1-ZZB.RSLT BOGDEL ZZB.RSLT // PROMPT MEMBER-BOGPR,FORMAT-BOG400PR // IFF ?1?/JA RETURN // SWITCH 00000000 // IF DATAF1-ZZS.PLAN SWITCH 1XXXXXXX // IF DATAF1-ZZS.POST SWITCH X1XXXXXX // IFF SWITCH-00XXXXXX PAUSE '--> SIDSTE $RS KARTOTEKER FINDES OG VIL BLIVE SLETTET **' // IFF SWITCH-00XXXXXX BOGDELGR ,,,ZZS // IF DATAF1-ZZB.POS1 DELETE ZZB.POS1,F1 BOGREN ZZB.PLAN,ZZS.PLAN,ZZB.POST,ZZS.POST BOGREN ZZB.ADR1,ZZS.ADR1,ZZB.ADR2,ZZS.ADR2 BOGREN ZZB.ADR3,ZZS.ADR3,ZZB.BUDG,ZZS.BUDG // * '** OPRET NY KONTOPLAN' // LOAD BOG400 // FILE NAME-PLAN,LABEL-ZZS.PLAN // FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHR // FILE NAME-SIPL,LABEL-ZZB.PLAN,RECORDS-?F'A,ZZS.PLAN'? // FILE NAME-BUDGET,LABEL-ZZS.BUDG,DISP-SHR // RUN // * '** OPRET NYT BUDGETKARTOTEK' // LOAD BOG410 // FILE NAME-SIBUD,LABEL-ZZS.BUDG // FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHR // FILE NAME-BUDGET,LABEL-ZZB.BUDG,RECORDS-?F'S,ZZS.BUDG'? // RUN // BOGSOR ZZB // LOCAL OFFSET-50,DATA-'ZZS' BOGFIL
0x000…001 0x8b
0x001…00c »* PROCEDURE«
0x00c…00d 0x03
0x00d…00e 0x8b
0x00e…019 »B O G 4 0 0«
0x019…01a 0x5f
0x01a…01b 0x8f
0x01b…02a »* $RSAFSLUTNING«
0x02a…02b 0x69
0x02b…02c 0x96
0x02c…042 »// MEMBER USER1-BOGMSG«
0x042…043 0x62
0x043…044 0x8e
0x044…052 »// ERR 1230,03«
0x052…053 0x6a
0x053…054 0xb7
0x054…08b »// * '* KONTROL AF DAGLIGE K@RSLERS NORMALE AFSLUTNING'«
0x08b…08c 0x41
0x08c…08d 0xaa
0x08d…0b7 »// IF DATAF1-ZZB.T130 BOGERR 0140,,,T130,C«
0x0b7…0b8 0x4e
0x0b8…0b9 0xaa
0x0b9…0e3 »// IF DATAF1-ZZB.T120 BOGERR 0140,,,T120,C«
0x0e3…0e4 0x4e
0x0e4…0e5 0xc8
0x0e5…12d »* HER KAN INDS#TTES BOGSTAVER ANVENDT FOR SK#RM-ID AF HENSYN TIL KONTROL«
0x12d…12e 0x30
0x12e…12f 0x92
0x12f…141 »// LOCAL DATA-'W '«
0x141…142 0x66
0x142…143 0xab
0x143…16e »** LOCAL DATA-'ABCDEFGHIJKLMNOPQRSTUVWXYZ '«
0x16e…16f 0x4d
0x16f…170 0x92
0x170…182 »// EVALUATE P2,2=1«
0x182…183 0x66
0x183…184 0x8d
0x184…191 »// TAG NYTBOG«
0x191…192 0x6b
0x192…193 0x9b
0x193…1ae »// IF ?L'?2?,1'?/ GOTO END2«
0x1ae…1af 0x5d
0x1af…1b0 0x9c
0x1b0…1cc »// EVALUATE ?3F'?L'?2?,1'?'?«
0x1cc…1cd 0x5c
0x1cd…1ce 0x92
0x1ce…1e0 »// EVALUATE P1,1=0«
0x1e0…1e1 0x66
0x1e1…1e2 0x8b
0x1e2…1ed »// TAG IGEN«
0x1ed…1ee 0x6d
0x1ee…1ef 0xb2
0x1ef…221 »// IF DATAF1-ZZB.T3?3??1? BOGERR 0140,,,T3?3??1?,C«
0x221…222 0x46
0x222…223 0xb2
0x223…255 »// IF DATAF1-ZZB.T2?3??1? BOGERR 0140,,,T2?3??1?,C«
0x255…256 0x46
0x256…257 0xb2
0x257…289 »// IF DATAF1-ZZB.L1?3??1? BOGERR 0140,,,L1?3??1?,C«
0x289…28a 0x46
0x28a…28b 0xb2
0x28b…2bd »// IF DATAF1-ZZB.TR?3??1? BOGERR 0140,,,TR?3??1?,C«
0x2bd…2be 0x46
0x2be…2bf 0x95
0x2bf…2d4 »// IF ?1?/9 GOTO END1«
0x2d4…2d5 0x63
0x2d5…2d6 0x94
0x2d6…2ea »// EVALUATE P1=?1?+1«
0x2ea…2eb 0x64
0x2eb…2ec 0x8c
0x2ec…2f8 »// GOTO IGEN«
0x2f8…2f9 0x6c
0x2f9…2fa 0x8b
0x2fa…305 »// TAG END1«
0x305…306 0x6d
0x306…307 0x94
0x307…31b »// EVALUATE P2=?2?+1«
0x31b…31c 0x64
0x31c…31d 0x8e
0x31d…32b »// GOTO NYTBOG«
0x32b…32c 0x6a
0x32c…32d 0x8b
0x32d…338 »// TAG END2«
0x338…339 0x6d
0x339…33a 0xa5
0x33a…35f »// IF DATAF1-ZZB.RSLT BOGDEL ZZB.RSLT«
0x35f…360 0x53
0x360…361 0xa6
0x361…387 »// PROMPT MEMBER-BOGPR,FORMAT-BOG400PR«
0x387…388 0x52
0x388…389 0x94
0x389…39d »// IFF ?1?/JA RETURN«
0x39d…39e 0x64
0x39e…39f 0x92
0x39f…3b1 »// SWITCH 00000000«
0x3b1…3b2 0x66
0x3b2…3b3 0xa5
0x3b3…3d8 »// IF DATAF1-ZZS.PLAN SWITCH 1XXXXXXX«
0x3d8…3d9 0x53
0x3d9…3da 0xa5
0x3da…3ff »// IF DATAF1-ZZS.POST SWITCH X1XXXXXX«
0x3ff…400 0x53
0x400…401 0xd7
0x401…458 »// IFF SWITCH-00XXXXXX PAUSE '--> SIDSTE $RS KARTOTEKER FINDES OG VIL BLIVE SLETTET **'«
0x458…459 0x21
0x459…45a 0xa6
0x45a…480 »// IFF SWITCH-00XXXXXX BOGDELGR ,,,ZZS«
0x480…481 0x52
0x481…482 0xa8
0x482…4aa »// IF DATAF1-ZZB.POS1 DELETE ZZB.POS1,F1«
0x4aa…4ab 0x50
0x4ab…4ac 0xaa
0x4ac…4d6 »BOGREN ZZB.PLAN,ZZS.PLAN,ZZB.POST,ZZS.POST«
0x4d6…4d7 0x4e
0x4d7…4d8 0xaa
0x4d8…502 »BOGREN ZZB.ADR1,ZZS.ADR1,ZZB.ADR2,ZZS.ADR2«
0x502…503 0x4e
0x503…504 0xaa
0x504…52e »BOGREN ZZB.ADR3,ZZS.ADR3,ZZB.BUDG,ZZS.BUDG«
0x52e…52f 0x4e
0x52f…530 0x88
0x530…538 »// * '**«
0x538…539 0x02
0x539…53a 0x93
0x53a…54d »OPRET NY KONTOPLAN'«
0x54d…54e 0x5b
0x54e…54f 0x8e
0x54f…55d »// LOAD BOG400«
0x55d…55e 0x6a
0x55e…55f 0xa0
0x55f…57f »// FILE NAME-PLAN,LABEL-ZZS.PLAN«
0x57f…580 0x58
0x580…581 0xa9
0x581…5aa »// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHR«
0x5aa…5ab 0x4f
0x5ab…5ac 0xb8
0x5ac…5e4 »// FILE NAME-SIPL,LABEL-ZZB.PLAN,RECORDS-?F'A,ZZS.PLAN'?«
0x5e4…5e5 0x40
0x5e5…5e6 0xab
0x5e6…611 »// FILE NAME-BUDGET,LABEL-ZZS.BUDG,DISP-SHR«
0x611…612 0x4d
0x612…613 0x86
0x613…619 »// RUN«
0x619…61a 0x72
0x61a…61b 0x88
0x61b…623 »// * '**«
0x623…624 0x02
0x624…625 0x99
0x625…63e »OPRET NYT BUDGETKARTOTEK'«
0x63e…63f 0x55
0x63f…640 0x8e
0x640…64e »// LOAD BOG410«
0x64e…64f 0x6a
0x64f…650 0xa1
0x650…671 »// FILE NAME-SIBUD,LABEL-ZZS.BUDG«
0x671…672 0x57
0x672…673 0xa9
0x673…69c »// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHR«
0x69c…69d 0x4f
0x69d…69e 0xba
0x69e…6d8 »// FILE NAME-BUDGET,LABEL-ZZB.BUDG,RECORDS-?F'S,ZZS.BUDG'?«
0x6d8…6d9 0x3e
0x6d9…6da 0x86
0x6da…6e0 »// RUN«
0x6e0…6e1 0x72
0x6e1…6e2 0x8d
0x6e2…6ef »// BOGSOR ZZB«
0x6ef…6f0 0x6b
0x6f0…6f1 0x9d
0x6f1…70e »// LOCAL OFFSET-50,DATA-'ZZS'«
0x70e…70f 0x5b
0x70f…710 0x86
0x710…716 »BOGFIL«
0x716…717 0x72
0x717…718 0x00
0x718…720 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣┆
0x720…740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
[…0x6…]