|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2048 (0x800)
Notes: MEMBER_P, Member_Text
Names: »DASDSIZR«
└─⟦5475bb115⟧ Bits:30009795 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 001 of 002
└─⟦a651098e4⟧
└─⟦this⟧ ».DASDSIZR«
// LIBRARY NAME-#VASPLIB
// MEMBER USER2-DASDMSG2,LIBRARY-#VASPLIB
// TAG PROMPT
// PROMPT MEMBER-FRPW00,FORMAT-FRPW0001
// IF ?CD?=2007 CANCEL
// IFF ?CD?=0000 GOTO PROMPT
// * ' '
// * 'DASDSIZE procedure is running'
// REGION SIZE-64
// LOCAL BLANK-*ALL
// IF DATAF1-#VTC.PRT DELETE #VTC.PRT,F1
// IF DATAF1-#VTC.ANL DELETE #VTC.ANL,F1
// IF DATAF1-#VTC.SRT DELETE #VTC.SRT,F1
// LOAD RVTOC1
// FILE NAME-#SAVFIL,LABEL-#VTC.PRT,RECORDS-2000,EXTEND-1000,DBLOCK-500
// RUN
// LOAD RVTOC2
// FILE NAME-#CATALG,LABEL-#VTC.PRT,DBLOCK-500
// FILE NAME-#SAVFIL,LABEL-#VTC.ANL,RECORDS-4000,EXTEND-1000,DBLOCK-500
// RUN
// LOAD #GSORT
// FILE NAME-INPUT,LABEL-#VTC.ANL
// FILE NAME-OUTPUT,LABEL-#VTC.SRT,RETAIN-T,DISP-NEW,RECORDS-?F'A,#VTC.ANL'?
// RUN
HSORTR 12A 3X 200
FNC 189 189 FOLDER TYPE
FNC 198 198 OBJECT TYPE
FNC 190 197 OBJECT NAME
FNC 199 199 OBJECT TYPE SUFFIX
FNC 200 200 FOLDER EXTEND
FDC 1 200 COMPLETE RECORD
// END
// * ' '
// IF DATAF1-#VTC.SRC DELETE #VTC.SRC,F1
// IF DATAF1-#VTC.SRI DELETE #VTC.SRI,F1
FROMLIBR #NAMES,SOURCE,#VTC.SRC,F1,T,500,#VASPLIB,,,,120
COPYDATA #VTC.SRC,,#VTC.SRI,,,,T,REORG,,,,,,,I,1,8
// IF DATAF1-#VTC.SRC DELETE #VTC.SRC,F1
// LOAD RVTOC3
// FILE NAME-#SAVFIL,LABEL-#VTC.SRT,DBLOCK-500
// FILE NAME-#NAMES,LABEL-#VTC.SRI,DBLOCK-500,IBLOCK-500
// RUN
// LOAD RVTOC4
// FILE NAME-#SAVFIL,LABEL-#VTC.SRT,DBLOCK-500
// FILE NAME-#NAMES,LABEL-#VTC.SRI,DBLOCK-500,IBLOCK-500
// RUN
// IFF LOAD-'#TMIO,#LIBRARY' GOTO NOFOLDER
// LOAD RVTOC5
// FILE NAME-#SAVFIL,LABEL-#VTC.SRT,DBLOCK-500
// FILE NAME-#NAMES,LABEL-#VTC.SRI,DBLOCK-500,IBLOCK-500
// FILE NAME-IT,LABEL-IT,DISP-NEW,BLOCKS-100
// RUN
// TAG NOFOLDER
// LOAD RVTOC6
// FILE NAME-#NAMES,LABEL-#VTC.SRI,DBLOCK-500
// RUN
// IF DATAF1-#VTC.PRT DELETE #VTC.PRT,F1
// IF DATAF1-#VTC.ANL DELETE #VTC.ANL,F1
// IF DATAF1-#VTC.SRT DELETE #VTC.SRT,F1
// IF DATAF1-#VTC.SRI DELETE #VTC.SRI,F1
// LIBRARY NAME-0
// * ' '
// * 'ANALYSIS COMPLETE'
// WAIT INTERVAL-000002
0x000…001 0x98 0x001…019 »// LIBRARY NAME-#VASPLIB« 0x019…01a 0x38 0x01a…01b 0xa9 0x01b…044 »// MEMBER USER2-DASDMSG2,LIBRARY-#VASPLIB« 0x044…045 0x27 0x045…046 0x8d 0x046…053 »// TAG PROMPT« 0x053…054 0x43 0x054…055 0xa7 0x055…07c »// PROMPT MEMBER-FRPW00,FORMAT-FRPW0001« 0x07c…07d 0x29 0x07d…07e 0x96 0x07e…094 »// IF ?CD?=2007 CANCEL« 0x094…095 0x3a 0x095…096 0x90 0x096…0a6 »// IFF ?CD?=0000« 0x0a6…0a7 0x02 0x0a7…0a8 0x8b 0x0a8…0b3 »GOTO PROMPT« 0x0b3…0b4 0x33 0x0b4…0b5 0x88 0x0b5…0bd »// * ' '« 0x0bd…0be 0x48 0x0be…0bf 0xa4 0x0bf…0e3 »// * 'DASDSIZE procedure is running'« 0x0e3…0e4 0x2c 0x0e4…0e5 0x91 0x0e5…0f6 »// REGION SIZE-64« 0x0f6…0f7 0x3f 0x0f7…0f8 0x93 0x0f8…10b »// LOCAL BLANK-*ALL« 0x10b…10c 0x3d 0x10c…10d 0xa8 0x10d…135 »// IF DATAF1-#VTC.PRT DELETE #VTC.PRT,F1« 0x135…136 0x28 0x136…137 0xa8 0x137…15f »// IF DATAF1-#VTC.ANL DELETE #VTC.ANL,F1« 0x15f…160 0x28 0x160…161 0xa8 0x161…189 »// IF DATAF1-#VTC.SRT DELETE #VTC.SRT,F1« 0x189…18a 0x28 0x18a…18b 0x8e 0x18b…199 »// LOAD RVTOC1« 0x199…19a 0x42 0x19a…19b 0xc7 0x19b…1e2 »// FILE NAME-#SAVFIL,LABEL-#VTC.PRT,RECORDS-2000,EXTEND-1000,DBLOCK-500« 0x1e2…1e3 0x09 0x1e3…1e4 0x86 0x1e4…1ea »// RUN« 0x1ea…1eb 0x4a 0x1eb…1ec 0x8e 0x1ec…1fa »// LOAD RVTOC2« 0x1fa…1fb 0x42 0x1fb…1fc 0xae 0x1fc…22a »// FILE NAME-#CATALG,LABEL-#VTC.PRT,DBLOCK-500« 0x22a…22b 0x22 0x22b…22c 0xc7 0x22c…273 »// FILE NAME-#SAVFIL,LABEL-#VTC.ANL,RECORDS-4000,EXTEND-1000,DBLOCK-500« 0x273…274 0x09 0x274…275 0x86 0x275…27b »// RUN« 0x27b…27c 0x4a 0x27c…27d 0x8e 0x27d…28b »// LOAD #GSORT« 0x28b…28c 0x42 0x28c…28d 0xa1 0x28d…2ae »// FILE NAME-INPUT,LABEL-#VTC.ANL« 0x2ae…2af 0x2f 0x2af…2b0 0xcc 0x2b0…2fc »// FILE NAME-OUTPUT,LABEL-#VTC.SRT,RETAIN-T,DISP-NEW,RECORDS-?F'A,#VTC.ANL'?« 0x2fc…2fd 0x04 0x2fd…2fe 0x86 0x2fe…304 »// RUN« 0x304…305 0x4a 0x305…306 0x05 0x306…307 0x86 0x307…30d »HSORTR« 0x30d…30e 0x04 0x30e…30f 0x83 0x30f…312 »12A« 0x312…313 0x08 0x313…314 0x86 0x314…31a »3X 200« 0x31a…31b 0x30 0x31b…31c 0x05 0x31c…31d 0x8b 0x31d…328 »FNC 189 189« 0x328…329 0x17 0x329…32a 0x8b 0x32a…335 »FOLDER TYPE« 0x335…336 0x1e 0x336…337 0x05 0x337…338 0x8b 0x338…343 »FNC 198 198« 0x343…344 0x17 0x344…345 0x8b 0x345…350 »OBJECT TYPE« 0x350…351 0x1e 0x351…352 0x05 0x352…353 0x8b 0x353…35e »FNC 190 197« 0x35e…35f 0x17 0x35f…360 0x8b 0x360…36b »OBJECT NAME« 0x36b…36c 0x1e 0x36c…36d 0x05 0x36d…36e 0x8b 0x36e…379 »FNC 199 199« 0x379…37a 0x17 0x37a…37b 0x92 0x37b…38d »OBJECT TYPE SUFFIX« 0x38d…38e 0x17 0x38e…38f 0x05 0x38f…390 0x8b 0x390…39b »FNC 200 200« 0x39b…39c 0x17 0x39c…39d 0x8d 0x39d…3aa »FOLDER EXTEND« 0x3aa…3ab 0x1c 0x3ab…3ac 0x05 0x3ac…3ad 0x83 0x3ad…3b0 »FDC« 0x3b0…3b1 0x03 0x3b1…3b2 0x85 0x3b2…3b7 »1 200« 0x3b7…3b8 0x17 0x3b8…3b9 0x8f 0x3b9…3c8 »COMPLETE RECORD« 0x3c8…3c9 0x1a 0x3c9…3ca 0x86 0x3ca…3d0 »// END« 0x3d0…3d1 0x4a 0x3d1…3d2 0x88 0x3d2…3da »// * ' '« 0x3da…3db 0x48 0x3db…3dc 0xa8 0x3dc…404 »// IF DATAF1-#VTC.SRC DELETE #VTC.SRC,F1« 0x404…405 0x28 0x405…406 0xa8 0x406…42e »// IF DATAF1-#VTC.SRI DELETE #VTC.SRI,F1« 0x42e…42f 0x28 0x42f…430 0xb8 0x430…468 »FROMLIBR #NAMES,SOURCE,#VTC.SRC,F1,T,500,#VASPLIB,,,,120« 0x468…469 0x18 0x469…46a 0xb2 0x46a…49c »COPYDATA #VTC.SRC,,#VTC.SRI,,,,T,REORG,,,,,,,I,1,8« 0x49c…49d 0x1e 0x49d…49e 0xa8 0x49e…4c6 »// IF DATAF1-#VTC.SRC DELETE #VTC.SRC,F1« 0x4c6…4c7 0x28 0x4c7…4c8 0x8e 0x4c8…4d6 »// LOAD RVTOC3« 0x4d6…4d7 0x42 0x4d7…4d8 0xae 0x4d8…506 »// FILE NAME-#SAVFIL,LABEL-#VTC.SRT,DBLOCK-500« 0x506…507 0x22 0x507…508 0xb8 0x508…540 »// FILE NAME-#NAMES,LABEL-#VTC.SRI,DBLOCK-500,IBLOCK-500« 0x540…541 0x18 0x541…542 0x86 0x542…548 »// RUN« 0x548…549 0x4a 0x549…54a 0x8e 0x54a…558 »// LOAD RVTOC4« 0x558…559 0x42 0x559…55a 0xae 0x55a…588 »// FILE NAME-#SAVFIL,LABEL-#VTC.SRT,DBLOCK-500« 0x588…589 0x22 0x589…58a 0xb8 0x58a…5c2 »// FILE NAME-#NAMES,LABEL-#VTC.SRI,DBLOCK-500,IBLOCK-500« 0x5c2…5c3 0x18 0x5c3…5c4 0x86 0x5c4…5ca »// RUN« 0x5ca…5cb 0x4a 0x5cb…5cc 0xaa 0x5cc…5f6 »// IFF LOAD-'#TMIO,#LIBRARY' GOTO NOFOLDER« 0x5f6…5f7 0x26 0x5f7…5f8 0x8e 0x5f8…606 »// LOAD RVTOC5« 0x606…607 0x42 0x607…608 0xae 0x608…636 »// FILE NAME-#SAVFIL,LABEL-#VTC.SRT,DBLOCK-500« 0x636…637 0x22 0x637…638 0xb8 0x638…670 »// FILE NAME-#NAMES,LABEL-#VTC.SRI,DBLOCK-500,IBLOCK-500« 0x670…671 0x18 0x671…672 0xac 0x672…69e »// FILE NAME-IT,LABEL-IT,DISP-NEW,BLOCKS-100« 0x69e…69f 0x24 0x69f…6a0 0x86 0x6a0…6a6 »// RUN« 0x6a6…6a7 0x4a 0x6a7…6a8 0x8f 0x6a8…6b7 »// TAG NOFOLDER« 0x6b7…6b8 0x41 0x6b8…6b9 0x8e 0x6b9…6c7 »// LOAD RVTOC6« 0x6c7…6c8 0x42 0x6c8…6c9 0xad 0x6c9…6f6 »// FILE NAME-#NAMES,LABEL-#VTC.SRI,DBLOCK-500« 0x6f6…6f7 0x23 0x6f7…6f8 0x86 0x6f8…6fe »// RUN« 0x6fe…6ff 0x4a 0x6ff…700 0xa8 0x700…728 »// IF DATAF1-#VTC.PRT DELETE #VTC.PRT,F1« 0x728…729 0x28 0x729…72a 0xa8 0x72a…752 »// IF DATAF1-#VTC.ANL DELETE #VTC.ANL,F1« 0x752…753 0x28 0x753…754 0xa8 0x754…77c »// IF DATAF1-#VTC.SRT DELETE #VTC.SRT,F1« 0x77c…77d 0x28 0x77d…77e 0xa8 0x77e…7a6 »// IF DATAF1-#VTC.SRI DELETE #VTC.SRI,F1« 0x7a6…7a7 0x28 0x7a7…7a8 0x91 0x7a8…7b9 »// LIBRARY NAME-0« 0x7b9…7ba 0x3f 0x7ba…7bb 0x88 0x7bb…7c3 »// * ' '« 0x7c3…7c4 0x48 0x7c4…7c5 0x98 0x7c5…7dd »// * 'ANALYSIS COMPLETE'« 0x7dd…7de 0x38 0x7de…7df 0x97 0x7df…7f6 »// WAIT INTERVAL-000002« 0x7f6…7f7 0x39 0x7f7…7f8 0x00 0x7f8…800 40 7b e5 e3 c3 4b e2 d9 ┆ #VTC.SR┆