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

⟦92f83c8a2⟧ 

    Length: 512 (0x200)
    Notes: MEMBER_P, Member_Text
    Names: »BOG500  «

Derivation

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

Text Member

*  PROCEDURE   B O G 5 0 0                                                                                              
*  ENDELIG $RSAFSLUTNING                                                                                                
// MEMBER USER1-BOGMSG                                                                                                  
// ERR 1230,03                                                                                                          
// IF DATAF1-ZZS.T140 BOGERR ,,,,C                                                                                      
// IF DATAF1-ZZS.T130 BOGERR ,,,,C                                                                                      
// IF DATAF1-ZZS.T120 BOGERR ,,,,C                                                                                      
// IF DATAF1-ZZS.TRAN BOGERR ,,,,C                                                                                      
// LOAD BOG500                                                                                                          
// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM                                                                             
// FILE NAME-SIPL,LABEL-ZZS.PLAN,DISP-OLD                                                                               
// FILE NAME-PLAN,LABEL-ZZB.PLAN,DISP-OLD                                                                               
// RUN                                                                                                                  
// IF SWITCH1-1 BOGERR 5010,,,,C

OctetView - MemberText

0x000…001 0x81
0x001…002 »*«
0x002…003 0x02
0x003…004 0x89
0x004…00d »PROCEDURE«
0x00d…00e 0x03
0x00e…00f 0x8b
0x00f…01a »B O G 5 0 0«
0x01a…01b 0x5e
0x01b…01c 0x81
0x01c…01d »*«
0x01d…01e 0x02
0x01e…01f 0x95
0x01f…034 »ENDELIG $RSAFSLUTNING«
0x034…035 0x60
0x035…036 0x96
0x036…04c »// MEMBER USER1-BOGMSG«
0x04c…04d 0x62
0x04d…04e 0x8e
0x04e…05c »// ERR 1230,03«
0x05c…05d 0x6a
0x05d…05e 0xa2
0x05e…080 »// IF DATAF1-ZZS.T140 BOGERR ,,,,C«
0x080…081 0x56
0x081…082 0xa2
0x082…0a4 »// IF DATAF1-ZZS.T130 BOGERR ,,,,C«
0x0a4…0a5 0x56
0x0a5…0a6 0xa2
0x0a6…0c8 »// IF DATAF1-ZZS.T120 BOGERR ,,,,C«
0x0c8…0c9 0x56
0x0c9…0ca 0xa2
0x0ca…0ec »// IF DATAF1-ZZS.TRAN BOGERR ,,,,C«
0x0ec…0ed 0x56
0x0ed…0ee 0x8e
0x0ee…0fc »// LOAD BOG500«
0x0fc…0fd 0x6a
0x0fd…0fe 0xab
0x0fe…129 »// FILE NAME-KODE,LABEL-ZZB.KODE,DISP-SHRRM«
0x129…12a 0x4d
0x12a…12b 0xa9
0x12b…154 »// FILE NAME-SIPL,LABEL-ZZS.PLAN,DISP-OLD«
0x154…155 0x4f
0x155…156 0xa9
0x156…17f »// FILE NAME-PLAN,LABEL-ZZB.PLAN,DISP-OLD«
0x17f…180 0x4f
0x180…181 0x86
0x181…187 »// RUN«
0x187…188 0x72
0x188…189 0xa0
0x189…1a9 »// IF SWITCH1-1 BOGERR 5010,,,,C«
0x1a9…1aa 0x58
0x1aa…1ab 0x00
0x1ab…1c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                    ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x1c0…1e0 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   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x1…]

Reduced view