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

⟦f4fa6585a⟧ 

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

Derivation

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

Text Member

// * '* KONVERTERING AF POSTERINGER'                                                                                    
// * 'INDTAST FILEGROUP (3 BOGSTAVER)'                                                                                  
// EVALUATE P1=?R?                                                                                                      
// LOAD PSGKON                                                                                                          
// FILE NAME-NYPOST,LABEL-?1?.WORK,RECORDS-?F'S,?1?.POST'?,DBLOCK-100,DUPKEYS-YES,DFILE-YES                             
// FILE NAME-POST,LABEL-?1?.POST,DBLOCK-100                                                                             
// RUN                                                                                                                  
// BOGDEL ?1?.POST                                                                                                      
// BOGREN ?1?.WORK,?1?.POST                                                                                             
// * 'OPT#LLING AF POSTER'                                                                                              
// LOAD PSG940                                                                                                          
// FILE NAME-PLAN,LABEL-?1?.PLAN                                                                                        
// FILE NAME-POST,LABEL-?1?.POST                                                                                        
// RUN

OctetView - MemberText

0x000…001 0xa4
0x001…025 »// * '* KONVERTERING AF POSTERINGER'«
0x025…026 0x54
0x026…027 0xa6
0x027…04d »// * 'INDTAST FILEGROUP (3 BOGSTAVER)'«
0x04d…04e 0x52
0x04e…04f 0x92
0x04f…061 »// EVALUATE P1=?R?«
0x061…062 0x66
0x062…063 0x8e
0x063…071 »// LOAD PSGKON«
0x071…072 0x6a
0x072…073 0xdb
0x073…0ce »// FILE NAME-NYPOST,LABEL-?1?.WORK,RECORDS-?F'S,?1?.POST'?,DBLOCK-100,DUPKEYS-YES,DFILE-YES«
0x0ce…0cf 0x1d
0x0cf…0d0 0xab
0x0d0…0fb »// FILE NAME-POST,LABEL-?1?.POST,DBLOCK-100«
0x0fb…0fc 0x4d
0x0fc…0fd 0x86
0x0fd…103 »// RUN«
0x103…104 0x72
0x104…105 0x92
0x105…117 »// BOGDEL ?1?.POST«
0x117…118 0x66
0x118…119 0x9b
0x119…134 »// BOGREN ?1?.WORK,?1?.POST«
0x134…135 0x5d
0x135…136 0x9a
0x136…150 »// * 'OPT#LLING AF POSTER'«
0x150…151 0x5e
0x151…152 0x8e
0x152…160 »// LOAD PSG940«
0x160…161 0x6a
0x161…162 0xa0
0x162…182 »// FILE NAME-PLAN,LABEL-?1?.PLAN«
0x182…183 0x58
0x183…184 0xa0
0x184…1a4 »// FILE NAME-POST,LABEL-?1?.POST«
0x1a4…1a5 0x58
0x1a5…1a6 0x86
0x1a6…1ac »// RUN«
0x1ac…1ad 0x72
0x1ad…1ae 0x00
0x1ae…1c0 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