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

⟦77809f786⟧ 

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

Derivation

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

Text Member

*  PROCEDURE   B O G S L E T                                                                                            
// MEMBER USER1-BOGMSG                                                                                                  
// IFF ?L'50,3'?/ZZB IFF ?L'50,3'?/ZZS RESET BOGERR 0120,,,BOGSLET,C                                                    
// LOCAL DATA-'-------------            '                                                                               
// IFF DATAF1-?L'50,3'?.POS1 BOGALT                                                                                     
// LOAD BOG970                                                                                                          
// FILE NAME-POS1,LABEL-?L'50,3'?.POS1                                                                                  
// RUN                                                                                                                  
// * '*?L'1,13'?*'                                                                                                      
// WAIT INTERVAL-000002                                                                                                 
// IF ?L'1,7'?/SLET IF ?L'8,6'?>000000 RESET BOG940                                                                     
// IF ?L'1,4'?/IKKE * 'POST.PERIODE ER IKKE 12'                                                                         
// IF ?L'1,4'?/IKKE WAIT INTERVAL-000002                                                                                
// IFF ?L'1,7'?/RET RETURN                                                                                              
// * 'INDTAST NYT BILAGSNUMMER'                                                                                         
// EVALUATE P60,6=?R?                                                                                                   
// LOCAL DATA-'?60?'                                                                                                    
// ATTR CANCEL-YES                                                                                                      
// PAUSE 'BILAGSNUMMER ?L'8,6'? RETTES TIL ?L'1,6'?'                                                                    
BOG950

OctetView - MemberText

0x000…001 0x81
0x001…002 »*«
0x002…003 0x02
0x003…004 0x89
0x004…00d »PROCEDURE«
0x00d…00e 0x03
0x00e…00f 0x8d
0x00f…01c »B O G S L E T«
0x01c…01d 0x5c
0x01d…01e 0x96
0x01e…034 »// MEMBER USER1-BOGMSG«
0x034…035 0x62
0x035…036 0xc4
0x036…07a »// IFF ?L'50,3'?/ZZB IFF ?L'50,3'?/ZZS RESET BOGERR 0120,,,BOGSLET,C«
0x07a…07b 0x34
0x07b…07c 0x9c
0x07c…098 »// LOCAL DATA-'-------------«
0x098…099 0x0c
0x099…09a 0x81
0x09a…09b »'«
0x09b…09c 0x4f
0x09c…09d 0xa3
0x09d…0c0 »// IFF DATAF1-?L'50,3'?.POS1 BOGALT«
0x0c0…0c1 0x55
0x0c1…0c2 0x8e
0x0c2…0d0 »// LOAD BOG970«
0x0d0…0d1 0x6a
0x0d1…0d2 0xa6
0x0d2…0f8 »// FILE NAME-POS1,LABEL-?L'50,3'?.POS1«
0x0f8…0f9 0x52
0x0f9…0fa 0x86
0x0fa…100 »// RUN«
0x100…101 0x72
0x101…102 0x92
0x102…114 »// * '*?L'1,13'?*'«
0x114…115 0x66
0x115…116 0x97
0x116…12d »// WAIT INTERVAL-000002«
0x12d…12e 0x61
0x12e…12f 0xb3
0x12f…162 »// IF ?L'1,7'?/SLET IF ?L'8,6'?>000000 RESET BOG940«
0x162…163 0x45
0x163…164 0xaf
0x164…193 »// IF ?L'1,4'?/IKKE * 'POST.PERIODE ER IKKE 12'«
0x193…194 0x49
0x194…195 0xa8
0x195…1bd »// IF ?L'1,4'?/IKKE WAIT INTERVAL-000002«
0x1bd…1be 0x50
0x1be…1bf 0x9a
0x1bf…1d9 »// IFF ?L'1,7'?/RET RETURN«
0x1d9…1da 0x5e
0x1da…1db 0x9f
0x1db…1fa »// * 'INDTAST NYT BILAGSNUMMER'«
0x1fa…1fb 0x59
0x1fb…1fc 0x95
0x1fc…211 »// EVALUATE P60,6=?R?«
0x211…212 0x63
0x212…213 0x94
0x213…227 »// LOCAL DATA-'?60?'«
0x227…228 0x64
0x228…229 0x92
0x229…23b »// ATTR CANCEL-YES«
0x23b…23c 0x66
0x23c…23d 0xb4
0x23d…271 »// PAUSE 'BILAGSNUMMER ?L'8,6'? RETTES TIL ?L'1,6'?'«
0x271…272 0x44
0x272…273 0x86
0x273…279 »BOG950«
0x279…27a 0x72
0x27a…27b 0x00
0x27b…280 00 00 00 00 00                                                                                    ┆␣␣␣␣␣┆
0x280…2a0 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   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x3…]

Reduced view