For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
LOAD/UNLOAD PROGRAMS CANNOT LOAD/UNLOAD DBS WITH LARGE NUMBERS OF COMPONENTS IN RECORDS.
Note: Please send email to s2k@sas.com telling us which problem fixes you have downloaded so we can keep track of the fixes at your site in case questions or problems arise.
Top of Zap Deck:
* IBM V12.0 BUG 4606 OS
//* ***********************************************************
//* * PROGRAM GENERATOR FIXES TO HANDLE RECORDS WITH LARGE *
//* * NUMBER OF COMPONENTS - THIS FIX INCREASES ARRAY SIZES.*
./ CHANGE NAME=S2KGUNLD,SEQFLD=736
./ NUMBER SEQ1=ALL,NEW1=100,INCR=100
./ CHANGE NAME=S2KGUNLD,SEQFLD=736
DCL 1 ELEMENT (9999) ALIGNED, /* ELEMENT DEFINITION TABLE */ 00320000
2 EL_DEFN_TYPE FIXED BINARY(15,0) INIT((9999)0), 00330000
2 EL_SIZE FIXED BINARY(15,0) INIT((9999)0), 00340000
2 EL_DEC_PLACES FIXED BINARY(15,0) INIT((9999)0), 00350000
2 EL_COMP_NBR CHAR(4) INIT((9999)(4)' '); 00360000
DCL 1 OCCARRAY (9999) ALIGNED, 00370000
2 OCCURS_VAR FIXED BINARY (15,0) INIT((9999)0); 00380000
00390000
DCL 1 REMARRAY (9999) ALIGNED, 00400000
2 OCCURS_REMAIN FIXED BINARY (15,0) INIT((9999)0); 00410000
EL_SIZE(I) = 8; ELSE 03250000
DCL 1 SD_LINE_22 CHAR(80) INIT(' FORM YYYYMMDD.'); 05800000
COMP_PIC = 'X(8).'; 06550000
./ CHANGE NAME=S2KGLOAD,SEQFLD=736
./ NUMBER SEQ1=ALL,NEW1=100,INCR=100
./ CHANGE NAME=S2KGLOAD,SEQFLD=736
DCL 1 ELEMENT (9999) ALIGNED, /* ELEMENT DEFINITION TABLE */ 00330000
2 EL_DEFN_TYPE FIXED BINARY(15,0) INIT((9999)0), 00340000
2 EL_SIZE FIXED BINARY(15,0) INIT((9999)0), 00350000
2 EL_DEC_PLACES FIXED BINARY(15,0) INIT((9999)0), 00360000
2 EL_COMP_NBR CHAR(4) INIT((9999)(4)' '); 00370000
00380000
DCL 1 OCCARRAY (9999) ALIGNED, 00390000
2 OCCURS_VAR FIXED BINARY (15,0) INIT((9999)0); 00400000
DCL 1 REMARRAY (9999) ALIGNED, 00410000
2 OCCURS_REMAIN FIXED BINARY (15,0) INIT((9999)0); 00420000
EL_SIZE(I) = 8; ELSE 03040000
DCL 1 SD_LINE_22 CHAR(80) INIT(' FORM YYYYMMDD.'); 05560000
COMP_PIC = 'X(8).'; 06260000
End of Zap Deck