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

⟦2400189ad⟧ 

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »BOG020  «

Derivation

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

Text Member

* PROCEDURE   B O G 0 2 0                                                                                               
*    TILF@JET "DFILE" , BLDINDEX OG BOGDEL        /PS 1987                                                              
// SWITCH 1000000X                                                                                                      
// IFF DATAF1-?L'50,3'?.POST SWITCH 0100000X                                                                            
// LOAD BOG020                                                                                                          
// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHR                                                                         
// IF SWITCH1-1 FILE NAME-POST,LABEL-?L'50,3'?.POST,DISP-SHR                                                            
// ELSE FILE NAME-NYPOST,LABEL-?L'50,3'?.POST,RECORDS-5000,DISP-NEW,DUPKEYS-YES,DFILE-YES                               
// RUN                                                                                                                  
// IFF DATAF1-?L'50,3'?.POS1 BOGALT                                                                                     
// IF SWITCH-XX00000X RETURN                                                                                            
// IF SWITCH3-1 * 'POSTERINGER OG KONTOPLAN IKKE SAMME GENERATION'                                                      
// IF SWITCH4-1 * 'KONTOPLAN HAR GENERATIONSFELT, MEN POSTERINGER FINDES IKKE'                                          
// IF SWITCH5-1 * 'PARAMETER-RECORD I POSTERINGSKARTOTEK MANGLER'                                                       
// IF SWITCH6-1 * 'PARAMETER RECORD I KONTOPLAN MANGLER'                                                                
// IF SWITCH2-1 BOGDEL ?L'50,3'?.POS1                                                                                   
// IF SWITCH2-1 BOGDEL ?L'50,3'?.POST                                                                                   
// PAUSE '-->   JOBBET AFBRYDES.  RESTART FRA BACKUP'                                                                   
// CANCEL

OctetView - MemberText

0x000…001 0x8b
0x001…00c »* PROCEDURE«
0x00c…00d 0x03
0x00d…00e 0x8b
0x00e…019 »B O G 0 2 0«
0x019…01a 0x5f
0x01a…01b 0x81
0x01b…01c »*«
0x01c…01d 0x04
0x01d…01e 0xa5
0x01e…043 »TILF@JET "DFILE" , BLDINDEX OG BOGDEL«
0x043…044 0x08
0x044…045 0x88
0x045…04d »/PS 1987«
0x04d…04e 0x3e
0x04e…04f 0x92
0x04f…061 »// SWITCH 1000000X«
0x061…062 0x66
0x062…063 0xac
0x063…08f »// IFF DATAF1-?L'50,3'?.POST SWITCH 0100000X«
0x08f…090 0x4c
0x090…091 0x8e
0x091…09f »// LOAD BOG020«
0x09f…0a0 0x6a
0x0a0…0a1 0xaf
0x0a1…0d0 »// FILE NAME-PLAN,LABEL-?L'50,3'?.PLAN,DISP-SHR«
0x0d0…0d1 0x49
0x0d1…0d2 0xbc
0x0d2…10e »// IF SWITCH1-1 FILE NAME-POST,LABEL-?L'50,3'?.POST,DISP-SHR«
0x10e…10f 0x3c
0x10f…110 0xd9
0x110…169 »// ELSE FILE NAME-NYPOST,LABEL-?L'50,3'?.POST,RECORDS-5000,DISP-NEW,DUPKEYS-YES,DFILE-YES«
0x169…16a 0x1f
0x16a…16b 0x86
0x16b…171 »// RUN«
0x171…172 0x72
0x172…173 0xa3
0x173…196 »// IFF DATAF1-?L'50,3'?.POS1 BOGALT«
0x196…197 0x55
0x197…198 0x9c
0x198…1b4 »// IF SWITCH-XX00000X RETURN«
0x1b4…1b5 0x5c
0x1b5…1b6 0xc2
0x1b6…1f8 »// IF SWITCH3-1 * 'POSTERINGER OG KONTOPLAN IKKE SAMME GENERATION'«
0x1f8…1f9 0x36
0x1f9…1fa 0xce
0x1fa…248 »// IF SWITCH4-1 * 'KONTOPLAN HAR GENERATIONSFELT, MEN POSTERINGER FINDES IKKE'«
0x248…249 0x2a
0x249…24a 0xc1
0x24a…28b »// IF SWITCH5-1 * 'PARAMETER-RECORD I POSTERINGSKARTOTEK MANGLER'«
0x28b…28c 0x37
0x28c…28d 0xb8
0x28d…2c5 »// IF SWITCH6-1 * 'PARAMETER RECORD I KONTOPLAN MANGLER'«
0x2c5…2c6 0x40
0x2c6…2c7 0xa5
0x2c7…2ec »// IF SWITCH2-1 BOGDEL ?L'50,3'?.POS1«
0x2ec…2ed 0x53
0x2ed…2ee 0xa5
0x2ee…313 »// IF SWITCH2-1 BOGDEL ?L'50,3'?.POST«
0x313…314 0x53
0x314…315 0x8d
0x315…322 »// PAUSE '-->«
0x322…323 0x03
0x323…324 0x90
0x324…334 »JOBBET AFBRYDES.«
0x334…335 0x02
0x335…336 0x93
0x336…349 »RESTART FRA BACKUP'«
0x349…34a 0x43
0x34a…34b 0x89
0x34b…354 »// CANCEL«
0x354…355 0x6f
0x355…356 0x00
0x356…360 00 00 00 00 00 00 00 00 00 00                                                                     ┆␣␣␣␣␣␣␣␣␣␣┆
0x360…380 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   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x4…]

Reduced view