|
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: 3328 (0xd00)
Notes: MEMBER_P, Member_Text
Names: »BOG230 «
└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
└─⟦1fc10e824⟧
└─⟦this⟧ ».BOG230 «
* PROCEDURE B O G 2 3 0 * DRIFTSREGNSKAB KONTO/AFD KONTO/FIRMA GRUPPE/FIRMA KONCERN * BOG230 BOG235 BOG240 BOG250 // MEMBER USER1-BOGMSG // SWITCH 0000000X // IFF ?L'50,3'?/ZZB IFF ?L'50,3'?/ZZS RESET BOGERR 0120,,,BOG230,C // IF SWITCH8-0 GOTO TG8 ?8F'X'? // ELSE GOTO TG8 ?8F''? // TAG TG8 // EVALUATE P10=?1? PS // PROMPT MEMBER-BOGPR,FORMAT-BOG230PR // IFF ?4?/ GOTO BOG250 // IFF ?3?/ GOTO BOG240 // IFF ?2?/ GOTO BOG235 * KONTO PR. FIRMA BOG230 // SWITCH 0111000X LTJ // PROMPT MEMBER-BOGPR,FORMAT-BOG230P1 // IFF ?1?/ SWITCH XXXXXX1X // IFF ?2?/ SWITCH XXXX1XXX // IF ?3?/ SWITCH 1XXXXXXX LTJ // IF SWITCH7-0 GOTO HOP // PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR // IFF ?1?/ SWITCH XXXXX10X // TAG HOP BOG190 05 // EVALUATE P11=?L'1,6'? PS // IF DATAF1-?L'50,3'?.RSLT BOGDEL ?L'50,3'?.RSLT // LOAD BOG230 // 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-RSLT,LABEL-?L'50,3'?.RSLT,DISP-NEW,RECORDS-50,EXTEND-50 // FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM // PRINTER NAME-LISTE,CONTINUE-YES PS // RUN // GOTO RETUR PS * KONTONR/KONTOGRUPPE/FIRMA BOG235 // TAG BOG235 // PROMPT MEMBER-BOGPR,FORMAT-BOG235PR // IFF ?4?/ SWITCH XXX1XXXX // IFF ?3?/ SWITCH 1XXXXXXX // IFF ?2?/ SWITCH XXXX1XXX // IFF ?1?/ SWITCH XXXXXX1X // IF SWITCH7-0 GOTO HOP // PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR // IFF ?1?/ SWITCH XXXXX10X // TAG HOP BOG190 06 // EVALUATE P11=?L'1,6'? PS // LOAD BOG235 // FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM // FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM // FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR1,DISP-SHRRR // FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM // PRINTER NAME-LISTE,CONTINUE-YES PS // RUN // GOTO RETUR PS * KONTOGRUPPE/FIRMA BOG240 // TAG BOG240 // IFF DATAF1-?L'50,3'?.RSLT BOGERR 0191,,,,C // PROMPT MEMBER-BOGPR,FORMAT-BOG240PR // IFF ?3?/ SWITCH XX1XXXXX // IFF ?2?/ SWITCH XXXXXX1X // IF SWITCH7-0 GOTO HOP // PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR // IFF ?1?/ SWITCH XXXXX10X // TAG HOP BOG190 06 // EVALUATE P11=?L'1,6'? PS // LOAD BOG240 // FILE NAME-KODE,LABEL-ZZB.KODE,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 // FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM // PRINTER NAME-LISTE,CONTINUE-YES PS // RUN // GOTO RETUR PS * KONCERNREGNSKAB BOG250 // TAG BOG250 // PROMPT MEMBER-BOGPR,FORMAT-BOG250PR // IFF ?3?/ SWITCH XX1XXXXX // IFF ?2?/ SWITCH XXXXXX1X // IF SWITCH7-0 GOTO HOP // PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR // IFF ?1?/ SWITCH XXXXX10X // TAG HOP BOG190 10 // EVALUATE P11=?L'1,6'? PS // LOAD BOG250 // FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM // FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM // FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR2,DISP-SHRRR // FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM // PRINTER NAME-LISTE,CONTINUE-YES PS // RUN // TAG RETUR PS // IF ?10?/NOPROM BOG260 ,,,,,,,,,NOPROM,?11? PS
0x000…001 0x8b 0x001…00c »* PROCEDURE« 0x00c…00d 0x03 0x00d…00e 0x8b 0x00e…019 »B O G 2 3 0« 0x019…01a 0x5f 0x01a…01b 0x90 0x01b…02b »* DRIFTSREGNSKAB« 0x02b…02c 0x04 0x02c…02d 0x89 0x02d…036 »KONTO/AFD« 0x036…037 0x03 0x037…038 0x8b 0x038…043 »KONTO/FIRMA« 0x043…044 0x03 0x044…045 0x8c 0x045…051 »GRUPPE/FIRMA« 0x051…052 0x03 0x052…053 0x87 0x053…05a »KONCERN« 0x05a…05b 0x34 0x05b…05c 0x81 0x05c…05d »*« 0x05d…05e 0x15 0x05e…05f 0x86 0x05f…065 »BOG230« 0x065…066 0x06 0x066…067 0x86 0x067…06d »BOG235« 0x06d…06e 0x08 0x06e…06f 0x86 0x06f…075 »BOG240« 0x075…076 0x07 0x076…077 0x86 0x077…07d »BOG250« 0x07d…07e 0x35 0x07e…07f 0x96 0x07f…095 »// MEMBER USER1-BOGMSG« 0x095…096 0x62 0x096…097 0x92 0x097…0a9 »// SWITCH 0000000X« 0x0a9…0aa 0x66 0x0aa…0ab 0xc3 0x0ab…0ee »// IFF ?L'50,3'?/ZZB IFF ?L'50,3'?/ZZS RESET BOGERR 0120,,,BOG230,C« 0x0ee…0ef 0x35 0x0ef…0f0 0xa0 0x0f0…110 »// IF SWITCH8-0 GOTO TG8 ?8F'X'?« 0x110…111 0x58 0x111…112 0x97 0x112…129 »// ELSE GOTO TG8 ?8F''?« 0x129…12a 0x61 0x12a…12b 0x8a 0x12b…135 »// TAG TG8« 0x135…136 0x6e 0x136…137 0x93 0x137…14a »// EVALUATE P10=?1?« 0x14a…14b 0x39 0x14b…14c 0x82 0x14c…14e »PS« 0x14e…14f 0x2a 0x14f…150 0xa6 0x150…176 »// PROMPT MEMBER-BOGPR,FORMAT-BOG230PR« 0x176…177 0x52 0x177…178 0x97 0x178…18f »// IFF ?4?/ GOTO BOG250« 0x18f…190 0x61 0x190…191 0x97 0x191…1a8 »// IFF ?3?/ GOTO BOG240« 0x1a8…1a9 0x61 0x1a9…1aa 0x97 0x1aa…1c1 »// IFF ?2?/ GOTO BOG235« 0x1c1…1c2 0x61 0x1c2…1c3 0x91 0x1c3…1d4 »* KONTO PR. FIRMA« 0x1d4…1d5 0x15 0x1d5…1d6 0x86 0x1d6…1dc »BOG230« 0x1dc…1dd 0x4c 0x1dd…1de 0x92 0x1de…1f0 »// SWITCH 0111000X« 0x1f0…1f1 0x3d 0x1f1…1f2 0x83 0x1f2…1f5 »LTJ« 0x1f5…1f6 0x26 0x1f6…1f7 0xa6 0x1f7…21d »// PROMPT MEMBER-BOGPR,FORMAT-BOG230P1« 0x21d…21e 0x52 0x21e…21f 0x9b 0x21f…23a »// IFF ?1?/ SWITCH XXXXXX1X« 0x23a…23b 0x5d 0x23b…23c 0x9b 0x23c…257 »// IFF ?2?/ SWITCH XXXX1XXX« 0x257…258 0x5d 0x258…259 0x9a 0x259…273 »// IF ?3?/ SWITCH 1XXXXXXX« 0x273…274 0x35 0x274…275 0x83 0x275…278 »LTJ« 0x278…279 0x26 0x279…27a 0x98 0x27a…292 »// IF SWITCH7-0 GOTO HOP« 0x292…293 0x60 0x293…294 0xa6 0x294…2ba »// PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR« 0x2ba…2bb 0x52 0x2bb…2bc 0x9b 0x2bc…2d7 »// IFF ?1?/ SWITCH XXXXX10X« 0x2d7…2d8 0x5d 0x2d8…2d9 0x8a 0x2d9…2e3 »// TAG HOP« 0x2e3…2e4 0x6e 0x2e4…2e5 0x89 0x2e5…2ee »BOG190 05« 0x2ee…2ef 0x6f 0x2ef…2f0 0x98 0x2f0…308 »// EVALUATE P11=?L'1,6'?« 0x308…309 0x34 0x309…30a 0x82 0x30a…30c »PS« 0x30c…30d 0x2a 0x30d…30e 0xb1 0x30e…33f »// IF DATAF1-?L'50,3'?.RSLT BOGDEL ?L'50,3'?.RSLT« 0x33f…340 0x47 0x340…341 0x8e 0x341…34f »// LOAD BOG230« 0x34f…350 0x6a 0x350…351 0xab 0x351…37c »// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM« 0x37c…37d 0x4d 0x37d…37e 0xaf 0x37e…3ad »// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHR« 0x3ad…3ae 0x49 0x3ae…3af 0xb2 0x3af…3e1 »// FILE NAME-PLANUPD,LABEL-?L'50,3'?.PLAN,DISP-SHR« 0x3e1…3e2 0x46 0x3e2…3e3 0xc4 0x3e3…427 »// FILE NAME-RSLT,LABEL-?L'50,3'?.RSLT,DISP-NEW,RECORDS-50,EXTEND-50« 0x427…428 0x34 0x428…429 0xb3 0x429…45c »// FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM« 0x45c…45d 0x45 0x45d…45e 0xa2 0x45e…480 »// PRINTER NAME-LISTE,CONTINUE-YES« 0x480…481 0x2a 0x481…482 0x82 0x482…484 »PS« 0x484…485 0x2a 0x485…486 0x86 0x486…48c »// RUN« 0x48c…48d 0x72 0x48d…48e 0x8d 0x48e…49b »// GOTO RETUR« 0x49b…49c 0x3f 0x49c…49d 0x82 0x49d…49f »PS« 0x49f…4a0 0x2a 0x4a0…4a1 0x9b 0x4a1…4bc »* KONTONR/KONTOGRUPPE/FIRMA« 0x4bc…4bd 0x0b 0x4bd…4be 0x86 0x4be…4c4 »BOG235« 0x4c4…4c5 0x4c 0x4c5…4c6 0x8d 0x4c6…4d3 »// TAG BOG235« 0x4d3…4d4 0x6b 0x4d4…4d5 0xa6 0x4d5…4fb »// PROMPT MEMBER-BOGPR,FORMAT-BOG235PR« 0x4fb…4fc 0x52 0x4fc…4fd 0x9b 0x4fd…518 »// IFF ?4?/ SWITCH XXX1XXXX« 0x518…519 0x5d 0x519…51a 0x9b 0x51a…535 »// IFF ?3?/ SWITCH 1XXXXXXX« 0x535…536 0x5d 0x536…537 0x9b 0x537…552 »// IFF ?2?/ SWITCH XXXX1XXX« 0x552…553 0x5d 0x553…554 0x9b 0x554…56f »// IFF ?1?/ SWITCH XXXXXX1X« 0x56f…570 0x5d 0x570…571 0x98 0x571…589 »// IF SWITCH7-0 GOTO HOP« 0x589…58a 0x60 0x58a…58b 0xa6 0x58b…5b1 »// PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR« 0x5b1…5b2 0x52 0x5b2…5b3 0x9b 0x5b3…5ce »// IFF ?1?/ SWITCH XXXXX10X« 0x5ce…5cf 0x5d 0x5cf…5d0 0x8a 0x5d0…5da »// TAG HOP« 0x5da…5db 0x6e 0x5db…5dc 0x89 0x5dc…5e5 »BOG190 06« 0x5e5…5e6 0x6f 0x5e6…5e7 0x98 0x5e7…5ff »// EVALUATE P11=?L'1,6'?« 0x5ff…600 0x34 0x600…601 0x82 0x601…603 »PS« 0x603…604 0x2a 0x604…605 0x8e 0x605…613 »// LOAD BOG235« 0x613…614 0x6a 0x614…615 0xab 0x615…640 »// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM« 0x640…641 0x4d 0x641…642 0xb1 0x642…673 »// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM« 0x673…674 0x47 0x674…675 0xb4 0x675…6a9 »// FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR1,DISP-SHRRR« 0x6a9…6aa 0x44 0x6aa…6ab 0xb3 0x6ab…6de »// FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM« 0x6de…6df 0x45 0x6df…6e0 0xa2 0x6e0…702 »// PRINTER NAME-LISTE,CONTINUE-YES« 0x702…703 0x2a 0x703…704 0x82 0x704…706 »PS« 0x706…707 0x2a 0x707…708 0x86 0x708…70e »// RUN« 0x70e…70f 0x72 0x70f…710 0x8d 0x710…71d »// GOTO RETUR« 0x71d…71e 0x3f 0x71e…71f 0x82 0x71f…721 »PS« 0x721…722 0x2a 0x722…723 0x93 0x723…736 »* KONTOGRUPPE/FIRMA« 0x736…737 0x13 0x737…738 0x86 0x738…73e »BOG240« 0x73e…73f 0x4c 0x73f…740 0x8d 0x740…74d »// TAG BOG240« 0x74d…74e 0x6b 0x74e…74f 0xad 0x74f…77c »// IFF DATAF1-?L'50,3'?.RSLT BOGERR 0191,,,,C« 0x77c…77d 0x4b 0x77d…77e 0xa6 0x77e…7a4 »// PROMPT MEMBER-BOGPR,FORMAT-BOG240PR« 0x7a4…7a5 0x52 0x7a5…7a6 0x9b 0x7a6…7c1 »// IFF ?3?/ SWITCH XX1XXXXX« 0x7c1…7c2 0x5d 0x7c2…7c3 0x9b 0x7c3…7de »// IFF ?2?/ SWITCH XXXXXX1X« 0x7de…7df 0x5d 0x7df…7e0 0x98 0x7e0…7f8 »// IF SWITCH7-0 GOTO HOP« 0x7f8…7f9 0x60 0x7f9…7fa 0xa6 0x7fa…820 »// PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR« 0x820…821 0x52 0x821…822 0x9b 0x822…83d »// IFF ?1?/ SWITCH XXXXX10X« 0x83d…83e 0x5d 0x83e…83f 0x8a 0x83f…849 »// TAG HOP« 0x849…84a 0x6e 0x84a…84b 0x89 0x84b…854 »BOG190 06« 0x854…855 0x6f 0x855…856 0x98 0x856…86e »// EVALUATE P11=?L'1,6'?« 0x86e…86f 0x34 0x86f…870 0x82 0x870…872 »PS« 0x872…873 0x2a 0x873…874 0x8e 0x874…882 »// LOAD BOG240« 0x882…883 0x6a 0x883…884 0xab 0x884…8af »// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM« 0x8af…8b0 0x4d 0x8b0…8b1 0xb1 0x8b1…8e2 »// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM« 0x8e2…8e3 0x47 0x8e3…8e4 0xb4 0x8e4…918 »// FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR1,DISP-SHRRR« 0x918…919 0x44 0x919…91a 0xaf 0x91a…949 »// FILE NAME-RSLT,LABEL-?L'50,3'?.RSLT,DISP-SHR« 0x949…94a 0x49 0x94a…94b 0xb3 0x94b…97e »// FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM« 0x97e…97f 0x45 0x97f…980 0xa2 0x980…9a2 »// PRINTER NAME-LISTE,CONTINUE-YES« 0x9a2…9a3 0x2a 0x9a3…9a4 0x82 0x9a4…9a6 »PS« 0x9a6…9a7 0x2a 0x9a7…9a8 0x86 0x9a8…9ae »// RUN« 0x9ae…9af 0x72 0x9af…9b0 0x8d 0x9b0…9bd »// GOTO RETUR« 0x9bd…9be 0x3f 0x9be…9bf 0x82 0x9bf…9c1 »PS« 0x9c1…9c2 0x2a 0x9c2…9c3 0x91 0x9c3…9d4 »* KONCERNREGNSKAB« 0x9d4…9d5 0x15 0x9d5…9d6 0x86 0x9d6…9dc »BOG250« 0x9dc…9dd 0x4c 0x9dd…9de 0x8d 0x9de…9eb »// TAG BOG250« 0x9eb…9ec 0x6b 0x9ec…9ed 0xa6 0x9ed…a13 »// PROMPT MEMBER-BOGPR,FORMAT-BOG250PR« 0xa13…a14 0x52 0xa14…a15 0x9b 0xa15…a30 »// IFF ?3?/ SWITCH XX1XXXXX« 0xa30…a31 0x5d 0xa31…a32 0x9b 0xa32…a4d »// IFF ?2?/ SWITCH XXXXXX1X« 0xa4d…a4e 0x5d 0xa4e…a4f 0x98 0xa4f…a67 »// IF SWITCH7-0 GOTO HOP« 0xa67…a68 0x60 0xa68…a69 0xa6 0xa69…a8f »// PROMPT MEMBER-BOGPR,FORMAT-BOGBUDPR« 0xa8f…a90 0x52 0xa90…a91 0x9b 0xa91…aac »// IFF ?1?/ SWITCH XXXXX10X« 0xaac…aad 0x5d 0xaad…aae 0x8a 0xaae…ab8 »// TAG HOP« 0xab8…ab9 0x6e 0xab9…aba 0x89 0xaba…ac3 »BOG190 10« 0xac3…ac4 0x6f 0xac4…ac5 0x98 0xac5…add »// EVALUATE P11=?L'1,6'?« 0xadd…ade 0x34 0xade…adf 0x82 0xadf…ae1 »PS« 0xae1…ae2 0x2a 0xae2…ae3 0x8e 0xae3…af1 »// LOAD BOG250« 0xaf1…af2 0x6a 0xaf2…af3 0xab 0xaf3…b1e »// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM« 0xb1e…b1f 0x4d 0xb1f…b20 0xb1 0xb20…b51 »// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHRRM« 0xb51…b52 0x47 0xb52…b53 0xb4 0xb53…b87 »// FILE NAME-ADDROUT,LABEL-?L'50,3'?.ADR2,DISP-SHRRR« 0xb87…b88 0x44 0xb88…b89 0xb3 0xb89…bbc »// FILE NAME-BUDGET,LABEL-?L'50,3'?.BUDG,DISP-SHRRM« 0xbbc…bbd 0x45 0xbbd…bbe 0xa2 0xbbe…be0 »// PRINTER NAME-LISTE,CONTINUE-YES« 0xbe0…be1 0x2a 0xbe1…be2 0x82 0xbe2…be4 »PS« 0xbe4…be5 0x2a 0xbe5…be6 0x86 0xbe6…bec »// RUN« 0xbec…bed 0x72 0xbed…bee 0x8c 0xbee…bfa »// TAG RETUR« 0xbfa…bfb 0x40 0xbfb…bfc 0x82 0xbfc…bfe »PS« 0xbfe…bff 0x2a 0xbff…c00 0xad 0xc00…c2d »// IF ?10?/NOPROM BOG260 ,,,,,,,,,NOPROM,?11?« 0xc2d…c2e 0x1f 0xc2e…c2f 0x82 0xc2f…c31 »PS« 0xc31…c32 0x2a 0xc32…c33 0x00 0xc33…c40 c1 c6 c4 03 8b d2 d6 d5 e3 d6 61 c6 c9 ┆AFD »KONTO/FI┆ 0xc40…c60 d9 d4 c1 03 8c c7 d9 e4 d7 d7 c5 61 c6 c9 d9 d4 c1 03 87 d2 d6 d5 c3 c5 d9 d5 34 81 5c 15 86 c2 ┆RMA ðGRUPPE/FIRMA gKONCERN a* fB┆ 0xc60…c80 d6 c7 f2 f3 f0 06 86 c2 d6 c7 f2 f3 f5 08 86 c2 d6 c7 f2 f4 f0 07 86 c2 d6 c7 f2 f5 f0 35 96 61 ┆OG230 fBOG235 fBOG240 fBOG250 o/┆ 0xc80…ca0 61 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 c2 d6 c7 d4 e2 c7 62 92 61 61 40 e2 e6 c9 e3 c3 c8 ┆/ MEMBER USER1-BOGMSGÂk// SWITCH┆ 0xca0…cc0 40 f0 f0 f0 f0 f0 f0 f0 e7 66 c3 61 61 40 c9 c6 c6 40 6f d3 7d f5 f0 6b f3 7d 6f 61 e9 e9 c2 40 ┆ 0000000XÃC// IFF ?L'50,3'?/ZZB ┆ 0xcc0…ce0 c9 c6 c6 40 6f d3 7d f5 f0 6b f3 7d 6f 61 e9 e9 e2 40 d9 c5 e2 c5 e3 40 c2 d6 c7 c5 d9 d9 40 f0 ┆IFF ?L'50,3'?/ZZS RESET BOGERR 0┆ 0xce0…d00 f1 f2 f0 6b 6b 6b c2 d6 c7 f2 f3 f0 6b c3 35 a0 61 61 40 c9 c6 40 e2 e6 c9 e3 c3 c8 f8 60 f0 40 ┆120,,,BOG230,C µ// IF SWITCH8-0 ┆