DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/36

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/36

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦198447c4b⟧ 

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »BOGNY   «

Derivation

└─⟦2142406c2⟧ Bits:30009842 APAR ÅÅBOG ØLIBRARY - Seebach Data Aps
    └─⟦1fc10e824⟧ 
        └─⟦this⟧ ».BOGNY   «

Text Member

* PROCEDURE   B O G N Y                                                                                                 
* OPRETTELSE AF NY KONTOPLAN MED ALLE FELTER 0-STILLET                                                                  
// MEMBER USER1-BOGMSG                                                                                                  
// IFF DATAF1-GLB.PLAN PAUSE 'BEGYND MED RENAME FRA `ZZB` TIL `GLB`'                                                    
// IFF DATAF1-GLB.PLAN RETURN                                                                                           
// IF  DATAF1-ZZB.PLAN PAUSE 'BEGYND MED RENAME FRA `ZZB` TIL `GLB`'                                                    
// IF  DATAF1-ZZB.PLAN RETURN                                                                                           
// * '**  OPRET NY KONTOPLAN'                                                                                           
// LOAD BOGNY                                                                                                           
// FILE NAME-PLAN,LABEL-GLB.PLAN                                                                                        
// FILE NAME-SIPL,LABEL-ZZB.PLAN,RECORDS-?F'A,GLB.PLAN'?                                                                
// RUN                                                                                                                  
// BOGSOR ZZB                                                                                                           
COPYDATA GLB.KODE,,ZZB.KODE                                                                                             
COPYDATA GLB.BUDG,,ZZB.BUDG

OctetView - MemberText

0x000…001 0x8b
0x001…00c »* PROCEDURE«
0x00c…00d 0x03
0x00d…00e 0x89
0x00e…017 »B O G N Y«
0x017…018 0x61
0x018…019 0xb6
0x019…04f »* OPRETTELSE AF NY KONTOPLAN MED ALLE FELTER 0-STILLET«
0x04f…050 0x42
0x050…051 0x96
0x051…067 »// MEMBER USER1-BOGMSG«
0x067…068 0x62
0x068…069 0xc4
0x069…0ad »// IFF DATAF1-GLB.PLAN PAUSE 'BEGYND MED RENAME FRA `ZZB` TIL `GLB`'«
0x0ad…0ae 0x34
0x0ae…0af 0x9d
0x0af…0cc »// IFF DATAF1-GLB.PLAN RETURN«
0x0cc…0cd 0x5b
0x0cd…0ce 0x85
0x0ce…0d3 »// IF«
0x0d3…0d4 0x02
0x0d4…0d5 0xbd
0x0d5…112 »DATAF1-ZZB.PLAN PAUSE 'BEGYND MED RENAME FRA `ZZB` TIL `GLB`'«
0x112…113 0x34
0x113…114 0x85
0x114…119 »// IF«
0x119…11a 0x02
0x11a…11b 0x96
0x11b…131 »DATAF1-ZZB.PLAN RETURN«
0x131…132 0x5b
0x132…133 0x88
0x133…13b »// * '**«
0x13b…13c 0x02
0x13c…13d 0x93
0x13d…150 »OPRET NY KONTOPLAN'«
0x150…151 0x5b
0x151…152 0x8d
0x152…15f »// LOAD BOGNY«
0x15f…160 0x6b
0x160…161 0xa0
0x161…181 »// FILE NAME-PLAN,LABEL-GLB.PLAN«
0x181…182 0x58
0x182…183 0xb8
0x183…1bb »// FILE NAME-SIPL,LABEL-ZZB.PLAN,RECORDS-?F'A,GLB.PLAN'?«
0x1bb…1bc 0x40
0x1bc…1bd 0x86
0x1bd…1c3 »// RUN«
0x1c3…1c4 0x72
0x1c4…1c5 0x8d
0x1c5…1d2 »// BOGSOR ZZB«
0x1d2…1d3 0x6b
0x1d3…1d4 0x9b
0x1d4…1ef »COPYDATA GLB.KODE,,ZZB.KODE«
0x1ef…1f0 0x5d
0x1f0…1f1 0x9b
0x1f1…20c »COPYDATA GLB.BUDG,,ZZB.BUDG«
0x20c…20d 0x5d
0x20d…20e 0x00
0x20e…220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                             ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x220…240 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…]

Reduced view