|
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: 2304 (0x900)
Notes: MEMBER_P, Member_Text
Names: »BOG260 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦1fc10e824⟧
└─⟦this⟧ ».BOG260 «
* PROCEDURE B O G 2 6 0 * STATUS KONTO/FIRMA GRUPPE/FIRMA KONCERN * BOG260 BOG270 BOG280 // MEMBER USER1-BOGMSG // SWITCH 0000000X // IFF ?L'50,3'?/ZZB IFF ?L'50,3'?/ZZS RESET BOGERR 0120,,,BOG260,C // IFF DATAF1-?L'50,3'?.RSLT BOGERR 0191,,,,C // IF SWITCH8-0 GOTO TG8 ?8F'X'? // ELSE GOTO TG8 ?8F''? // TAG TG8 // IF ?10?/NOPROM LOCAL DATA-'?11?' PS // IF ?10?/NOPROM GOTO NOPR PS // PROMPT MEMBER-BOGPR,FORMAT-BOG260PR // IFF ?4?/ SWITCH XXXXXX1X // IFF ?3?/ GOTO BOG280 // IFF ?2?/ GOTO BOG270 * KONTO PR. FIRMA BOG260 // PROMPT MEMBER-BOGPR,FORMAT-BOG260P1 // IFF ?1?/ SWITCH XXXX1XXX // IF SWITCH7-0 GOTO HOP // PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR // IFF ?1?/ SWITCH XXXXX10X // TAG HOP BOG190 07 // TAG NOPR PS // SWITCH 0111XXXX // LOAD BOG260 // FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM // FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHR // FILE NAME-PLANUPD,LABEL-?L'50,3'?.PLAN,DISP-SHR // FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR3,DISP-SHRRR // FILE NAME-RSLT,LABEL-?L'50,3'?.RSLT,DISP-SHR // FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM // RUN // RETURN * KONTOGRUPPE PR. FIRMA BOG270 // TAG BOG270 // IF SWITCH7-0 GOTO HOP // PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR // IFF ?1?/ SWITCH XXXXX10X // TAG HOP // PROMPT MEMBER-BOGPR,FORMAT-BOG280PR // IFF ?1?/ SWITCH XX1XXXXX BOG190 08 // LOAD BOG270 // FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM // FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM // FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM // FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR1,DISP-SHRRR // FILE NAME-RSLT,LABEL-?L'50,3'?.RSLT,DISP-SHR // RUN // RETURN * STATUS FOR KONCERN BOG280 // TAG BOG280 // IF SWITCH7-0 GOTO HOP // PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR // IFF ?1?/ SWITCH XXXXX10X // TAG HOP // PROMPT MEMBER-BOGPR,FORMAT-BOG280PR // IFF ?1?/ SWITCH XX1XXXXX BOG190 11 // LOAD BOG280 // FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM // FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM // FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM // FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR2,DISP-SHRRR // RUN
0x000…001 0x8b
0x001…00c »* PROCEDURE«
0x00c…00d 0x03
0x00d…00e 0x8b
0x00e…019 »B O G 2 6 0«
0x019…01a 0x5f
0x01a…01b 0x88
0x01b…023 »* STATUS«
0x023…024 0x0c
0x024…025 0x8b
0x025…030 »KONTO/FIRMA«
0x030…031 0x03
0x031…032 0x8c
0x032…03e »GRUPPE/FIRMA«
0x03e…03f 0x03
0x03f…040 0x87
0x040…047 »KONCERN«
0x047…048 0x40
0x048…049 0x81
0x049…04a »*«
0x04a…04b 0x15
0x04b…04c 0x86
0x04c…052 »BOG260«
0x052…053 0x09
0x053…054 0x86
0x054…05a »BOG270«
0x05a…05b 0x07
0x05b…05c 0x86
0x05c…062 »BOG280«
0x062…063 0x40
0x063…064 0x96
0x064…07a »// MEMBER USER1-BOGMSG«
0x07a…07b 0x62
0x07b…07c 0x92
0x07c…08e »// SWITCH 0000000X«
0x08e…08f 0x66
0x08f…090 0xc3
0x090…0d3 »// IFF ?L'50,3'?/ZZB IFF ?L'50,3'?/ZZS RESET BOGERR 0120,,,BOG260,C«
0x0d3…0d4 0x35
0x0d4…0d5 0xad
0x0d5…102 »// IFF DATAF1-?L'50,3'?.RSLT BOGERR 0191,,,,C«
0x102…103 0x4b
0x103…104 0xa0
0x104…124 »// IF SWITCH8-0 GOTO TG8 ?8F'X'?«
0x124…125 0x58
0x125…126 0x97
0x126…13d »// ELSE GOTO TG8 ?8F''?«
0x13d…13e 0x61
0x13e…13f 0x8a
0x13f…149 »// TAG TG8«
0x149…14a 0x6e
0x14a…14b 0xa3
0x14b…16e »// IF ?10?/NOPROM LOCAL DATA-'?11?'«
0x16e…16f 0x29
0x16f…170 0x82
0x170…172 »PS«
0x172…173 0x2a
0x173…174 0x9b
0x174…18f »// IF ?10?/NOPROM GOTO NOPR«
0x18f…190 0x31
0x190…191 0x82
0x191…193 »PS«
0x193…194 0x2a
0x194…195 0xa6
0x195…1bb »// PROMPT MEMBER-BOGPR,FORMAT-BOG260PR«
0x1bb…1bc 0x52
0x1bc…1bd 0x9b
0x1bd…1d8 »// IFF ?4?/ SWITCH XXXXXX1X«
0x1d8…1d9 0x5d
0x1d9…1da 0x97
0x1da…1f1 »// IFF ?3?/ GOTO BOG280«
0x1f1…1f2 0x61
0x1f2…1f3 0x97
0x1f3…20a »// IFF ?2?/ GOTO BOG270«
0x20a…20b 0x61
0x20b…20c 0x91
0x20c…21d »* KONTO PR. FIRMA«
0x21d…21e 0x15
0x21e…21f 0x86
0x21f…225 »BOG260«
0x225…226 0x4c
0x226…227 0xa6
0x227…24d »// PROMPT MEMBER-BOGPR,FORMAT-BOG260P1«
0x24d…24e 0x52
0x24e…24f 0x9b
0x24f…26a »// IFF ?1?/ SWITCH XXXX1XXX«
0x26a…26b 0x5d
0x26b…26c 0x98
0x26c…284 »// IF SWITCH7-0 GOTO HOP«
0x284…285 0x60
0x285…286 0xa6
0x286…2ac »// PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR«
0x2ac…2ad 0x52
0x2ad…2ae 0x9b
0x2ae…2c9 »// IFF ?1?/ SWITCH XXXXX10X«
0x2c9…2ca 0x5d
0x2ca…2cb 0x8a
0x2cb…2d5 »// TAG HOP«
0x2d5…2d6 0x6e
0x2d6…2d7 0x89
0x2d7…2e0 »BOG190 07«
0x2e0…2e1 0x6f
0x2e1…2e2 0x8b
0x2e2…2ed »// TAG NOPR«
0x2ed…2ee 0x41
0x2ee…2ef 0x82
0x2ef…2f1 »PS«
0x2f1…2f2 0x2a
0x2f2…2f3 0x92
0x2f3…305 »// SWITCH 0111XXXX«
0x305…306 0x66
0x306…307 0x8e
0x307…315 »// LOAD BOG260«
0x315…316 0x6a
0x316…317 0xab
0x317…342 »// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM«
0x342…343 0x4d
0x343…344 0xaf
0x344…373 »// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHR«
0x373…374 0x49
0x374…375 0xb2
0x375…3a7 »// FILE NAME-PLANUPD,LABEL-?L'50,3'?.PLAN,DISP-SHR«
0x3a7…3a8 0x46
0x3a8…3a9 0xb4
0x3a9…3dd »// FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR3,DISP-SHRRR«
0x3dd…3de 0x44
0x3de…3df 0xaf
0x3df…40e »// FILE NAME-RSLT,LABEL-?L'50,3'?.RSLT,DISP-SHR«
0x40e…40f 0x49
0x40f…410 0xb3
0x410…443 »// FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM«
0x443…444 0x45
0x444…445 0x86
0x445…44b »// RUN«
0x44b…44c 0x72
0x44c…44d 0x89
0x44d…456 »// RETURN«
0x456…457 0x6f
0x457…458 0x97
0x458…46f »* KONTOGRUPPE PR. FIRMA«
0x46f…470 0x0f
0x470…471 0x86
0x471…477 »BOG270«
0x477…478 0x4c
0x478…479 0x8d
0x479…486 »// TAG BOG270«
0x486…487 0x6b
0x487…488 0x98
0x488…4a0 »// IF SWITCH7-0 GOTO HOP«
0x4a0…4a1 0x60
0x4a1…4a2 0xa6
0x4a2…4c8 »// PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR«
0x4c8…4c9 0x52
0x4c9…4ca 0x9b
0x4ca…4e5 »// IFF ?1?/ SWITCH XXXXX10X«
0x4e5…4e6 0x5d
0x4e6…4e7 0x8a
0x4e7…4f1 »// TAG HOP«
0x4f1…4f2 0x6e
0x4f2…4f3 0xa6
0x4f3…519 »// PROMPT MEMBER-BOGPR,FORMAT-BOG280PR«
0x519…51a 0x52
0x51a…51b 0x9b
0x51b…536 »// IFF ?1?/ SWITCH XX1XXXXX«
0x536…537 0x5d
0x537…538 0x89
0x538…541 »BOG190 08«
0x541…542 0x6f
0x542…543 0x8e
0x543…551 »// LOAD BOG270«
0x551…552 0x6a
0x552…553 0xab
0x553…57e »// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM«
0x57e…57f 0x4d
0x57f…580 0xb3
0x580…5b3 »// FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM«
0x5b3…5b4 0x45
0x5b4…5b5 0xb1
0x5b5…5e6 »// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM«
0x5e6…5e7 0x47
0x5e7…5e8 0xb4
0x5e8…61c »// FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR1,DISP-SHRRR«
0x61c…61d 0x44
0x61d…61e 0xaf
0x61e…64d »// FILE NAME-RSLT,LABEL-?L'50,3'?.RSLT,DISP-SHR«
0x64d…64e 0x49
0x64e…64f 0x86
0x64f…655 »// RUN«
0x655…656 0x72
0x656…657 0x89
0x657…660 »// RETURN«
0x660…661 0x6f
0x661…662 0x94
0x662…676 »* STATUS FOR KONCERN«
0x676…677 0x12
0x677…678 0x86
0x678…67e »BOG280«
0x67e…67f 0x4c
0x67f…680 0x8d
0x680…68d »// TAG BOG280«
0x68d…68e 0x6b
0x68e…68f 0x98
0x68f…6a7 »// IF SWITCH7-0 GOTO HOP«
0x6a7…6a8 0x60
0x6a8…6a9 0xa6
0x6a9…6cf »// PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR«
0x6cf…6d0 0x52
0x6d0…6d1 0x9b
0x6d1…6ec »// IFF ?1?/ SWITCH XXXXX10X«
0x6ec…6ed 0x5d
0x6ed…6ee 0x8a
0x6ee…6f8 »// TAG HOP«
0x6f8…6f9 0x6e
0x6f9…6fa 0xa6
0x6fa…720 »// PROMPT MEMBER-BOGPR,FORMAT-BOG280PR«
0x720…721 0x52
0x721…722 0x9b
0x722…73d »// IFF ?1?/ SWITCH XX1XXXXX«
0x73d…73e 0x5d
0x73e…73f 0x89
0x73f…748 »BOG190 11«
0x748…749 0x6f
0x749…74a 0x8e
0x74a…758 »// LOAD BOG280«
0x758…759 0x6a
0x759…75a 0xab
0x75a…785 »// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM«
0x785…786 0x4d
0x786…787 0xb1
0x787…7b8 »// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM«
0x7b8…7b9 0x47
0x7b9…7ba 0xb3
0x7ba…7ed »// FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM«
0x7ed…7ee 0x45
0x7ee…7ef 0xb4
0x7ef…823 »// FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR2,DISP-SHRRR«
0x823…824 0x44
0x824…825 0x86
0x825…82b »// RUN«
0x82b…82c 0x72
0x82c…82d 0x00
0x82d…840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x840…860 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 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
[…0x5…]