|
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