|
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