DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/3

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

See our Wiki for more about IBM System/3

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦2257a70d8⟧ s3xseg

    Length: 4064 (0xfe0)
    Types: s3xseg
    Names: »S$AUSPA«

Derivation

└─⟦2e71fd85d⟧ Bits:30009192 5704-sc2.V06.rpg
    └─⟦3ab7d675a⟧ 
        └─⟦this⟧ »S$AUSPA« 

TextSegment

01010H     008                                                            CREATE                
0102 F$SOURCE IP  F 256 256            DISK                                                     
0103 FCASHRC  O   F1020  68            DISK                                                     
0104 FPRINTER O   F 120 120            PRINTER                                                  
0201 I$SOURCE AA  01                                                                            
0202 I                                        1  68 RECORD                                      
0203 C                     SETON                     LR                                         
0301 OPRINTER T  301   LR                                                                       
0302 O                                   54 'DATA FOR SAMPLE PROGRAM'                           
0303 O        T  2     LR                                                                       
0304 O                                   24 '11243JONES HARDWARE     '                          
0305 O                                   48 ' 27541071171  2375CASH  '                          
0306 O                                   68 ' 47   47  232807211T'                              
0307 O        T  2     LR                                                                       
0308 O                                   24 '11352NU-STYLE CLOTHIERS '                          
0309 O                                   48 ' 27987071471  8707CASH  '                          
0310 O                                   68 '174       400007261P'                              
0311 O        T  2     LR                                                                       
0312 O                                   24 '11886MIDI FASHIONS INC  '                          
0313 O                                   48 ' 15771070471 10722CASH  '                          
0314 O                                   68 '214  214 1050807141T'                              
0401 O        T  2     LR                                                                       
0402 O                                   24 '12874ULOOK INTERIORS    '                          
0403 O                                   48 ' 25622070971  6795CASH  '                          
0404 O                                   68 '136       679507231T'                              
0405 O        T  2     LR                                                                       
0406 O                                   24 '18274STREAMLINE PAPER IN'                          
0407 O                                   48 'C29703072171 27403      '                          
0408 O                                   68 '548  238 1705507301P'                              
0409 O        T  2     LR                                                                       
0410 O                                   24 '23347RITE-BEST PENS CO  '                          
0411 O                                   48 ' 20842071871  1580      '                          
0412 O                                   68 '31        100007201P'                              
0413 O        T  2     LR                                                                       
0414 O                                   24 '25521IMPORTS OF NM      '                          
0415 O                                   48 ' 29273072071 79740     1'                          
0416 O                                   68 '593 1193 5854707271P'                              
0501 O        T  2     LR                                                                       
0502 O                                   24 '26723ALRIGHT CLEANERS   '                          
0503 O                                   48 ' 19473070771 46200CASH  '                          
0504 O                                   68 '924      4620007231T'                              
0505 O        T  2     LR                                                                       
0506 O                                   24 '28622NORTH CENTRAL SUPPL'                          
0507 O                                   48 'Y17816070571  7597CASH  '                          
0508 O                                   68 '152       759707221T'                              
0509 O        T  2     LR                                                                       
0510 O                                   24 '29871FERGUSON DEALERS   '                          
0511 O                                   48 ' 27229071071  6191CASH  '                          
0512 O                                   68 '124       619107221T'                              
0513 O        T  2     LR                                                                       
0514 O                                   24 '30755FASTWAY AIRLINES   '                          
0515 O                                   48 ' 26158070671 74272CASH 1'                          
0516 O                                   68 '495 1685 7258707191T'                              
0517 O        T  2     LR                                                                       
0518 O                                   24 '31275ENVIRONMENT CONCERN'                          
0519 O                                   48 'S20451070671  2943      '                          
0520 O                                   68 ' 59       150007301P'                              
0601 O        T  2     LR                                                                       
0602 O                                   24 '32457B SOLE SILOS       '                          
0603 O                                   48 ' 27425071071 11005CASH  '                          
0604 O                                   68 '220      1100507201T'                              
0605 O        T  2     LR                                                                       
0606 O                                   24 '37945HOFFTA BREAKS INC  '                          
0607 O                                   48 ' 18276070671  4723CASH  '                          
0608 O                                   68 ' 94       472307231T'                              
0609 O        T  2     LR                                                                       
0610 O                                   24 '42622EASTLAKE GRAVEL CO '                          
0611 O                                   48 ' 16429070571  2937CASH  '                          
0612 O                                   68 ' 58       293707231T'                              
0613 OCASHRC  T        LR                                                                       
0704 O                                   24 '11243JONES HARDWARE     '                          
0705 O                                   48 ' 27541071171  2375CASH  '                          
0706 O                                   68 ' 47   47  232807211T'                              
0707 O        T        LR                                                                       
0708 O                                   24 '11352NU-STYLE CLOTHIERS '                          
0709 O                                   48 ' 27987071471  8707CASH  '                          
0710 O                                   68 '174       400007261P'                              
0711 O        T        LR                                                                       
0712 O                                   24 '11886MIDI FASHIONS INC  '                          
0713 O                                   48 ' 15771070471 10722CASH  '                          
0714 O                                   68 '214  214 1050807141T'                              
0801 O        T        LR                                                                       
0802 O                                   24 '12874ULOOK INTERIORS    '                          
0803 O                                   48 ' 25622070971  6795CASH  '                          
0804 O                                   68 '136       679507231T'                              
0805 O        T        LR                                                                       
0806 O                                   24 '18274STREAMLINE PAPER IN'                          
0807 O                                   48 'C29703072171 27403      '                          
0808 O                                   68 '548  238 1705507301P'                              
0809 O        T        LR                                                                       
0810 O                                   24 '23347RITE-BEST PENS CO  '                          
0811 O                                   48 ' 20842071871  1580      '                          
0812 O                                   68 '31        100007201P'                              
0813 O        T        LR                                                                       
0814 O                                   24 '25521IMPORTS OF NM      '                          
0815 O                                   48 ' 29273072071 79740     1'                          
0816 O                                   68 '593 1193 5854707271P'                              
0901 O        T        LR                                                                       
0902 O                                   24 '26723ALRIGHT CLEANERS   '                          
0903 O                                   48 ' 19473070771 46200CASH  '                          
0904 O                                   68 '924      4620007231T'                              
0905 O        T        LR                                                                       
0906 O                                   24 '28622NORTH CENTRAL SUPPL'                          
0907 O                                   48 'Y17816070571  7597CASH  '                          
0908 O                                   68 '152       759707221T'                              
0909 O        T        LR                                                                       
0910 O                                   24 '29871FERGUSON DEALERS   '                          
0911 O                                   48 ' 27229071071  6191CASH  '                          
0912 O                                   68 '124       619107221T'                              
0913 O        T        LR                                                                       
0914 O                                   24 '30755FASTWAY AIRLINES   '                          
0915 O                                   48 ' 26158070671 74272CASH 1'                          
0916 O                                   68 '495 1685 7258707191T'                              
0917 O        T        LR                                                                       
0918 O                                   24 '31275ENVIRONMENT CONCERN'                          
0919 O                                   48 'S20451070671  2943      '                          
0920 O                                   68 ' 59       150007301P'                              
1001 O        T        LR                                                                       
1002 O                                   24 '32457B SOLE SILOS       '                          
1003 O                                   48 ' 27425071071 11005CASH  '                          
1004 O                                   68 '220      1100507201T'                              
1005 O        T        LR                                                                       
1006 O                                   24 '37945HOFFTA BREAKS INC  '                          
1007 O                                   48 ' 18276070671  4723CASH  '                          
1008 O                                   68 ' 94       472307231T'                              
1009 O        T        LR                                                                       
1010 O                                   24 '42622EASTLAKE GRAVEL CO '                          
1011 O                                   48 ' 16429070571  2937CASH  '                          
1012 O                                   68 ' 58       293707231T'