MVSFORUMS.com

karunkallore · Beginner Joined: 11 Dec 2004 Posts: 103 Topics: 39

Dear All,

I am getting a abend of Oncode 8094. To be specific it is

IBM0534S ONCODE=8094 Protection exception.

The programming lang is PL/I.

Here basically this abend i am getting when a sorting is done using Syncsort.
I had searched for this topic in mvsforums and i got a link http://www.mvsforums.com/helpboards/viewtopic.php?t=1122. But this led me to http://www-1.ibm.com/support/docview.wss?uid=isg1PQ65789#more and there in the fix colums nothing was mentioned.

I am posting the SYSOUT of the program which abended and also the source code. I tired to post the listing of the source code instead but due to large volume it could not be posted. From the error listing of syncsort i know that it is in para DSTSEN_DET_IMPUTE_WINDOW.

I saw that some previous posts on PLI abends were there in Application programming. Thatz why i posted here instead of the Abend forum. Aplologies if it is a Mistake.

Thanks in advance to all,
Karun.

Sysout is

[code:1:c0abf6b387]
SYNCSORT FOR Z/OS 1.1BRI TPF2B U.S. PATENTS: 4210961, 5117495 (C) 2002 SYNCSORT INC. DATE=2005/116 TIME=19.45.41
ELECTRONIC DATA SYSTEMS z/OS 1.4.0
PRODUCT LICENSED FOR CPU SERIAL NUMBER 21011, MODEL 2000 LICENSE/PRODUCT EXPIRATION DATE: 02 DEC 2006
PARMLIST :
SORT FIELDS=(47,4,CH,A)
RECORD TYPE=V
OPTION MAINSIZE=20000000,SORTDD=SORT
WER164B 14,108K BYTES OF VIRTUAL STORAGE AVAILABLE, 20,000,000 BYTES REQUESTED,
WER164B 156K BYTES RESERVE REQUESTED, 13,624K BYTES USED
WER146B 12K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=VB ; LRECL= 9425; BLKSIZE= 27998
WER110I SORTOUT : RECFM=VB ; LRECL= 9425; BLKSIZE= 27998
WER410B 13,080K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 13,076K BYTES USED
WER036B G=25639,B=47464,BIAS=00
WER162B 0 PREALLOCATED SORTWORK TRACKS, 900 DYNAMICALLY ALLOCATED,
WER162B 0 ACQUIRED IN SECONDARY EXTENTS, 0 RELEASED, TOTAL OF 376 TRACKS USED
WER045C END SORT PHASE
WER447B PHASE 3 VIRTUAL STORAGE REDUCED TO 5,084K BYTES FOR OPTIMAL PERFORMANCE
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER416B SORTIN: EXCP'S=5,UNIT=3390,DEV=3278,CHP=(C77A889198D3E876,1),VOL=SWK087
WER416B SORTOUT: EXCP'S=11,UNIT=3390,DEV=3278,CHP=(C77A889198D3E876,1),VOL=SWK087
WER416B SORTWK01: EXCP'S=16,UNIT=3390,DEV=27B8,CHP=1999B9D939A7F7D7,VOL=SWK064
WER416B SORTWK02: EXCP'S=4,UNIT=3390,DEV=35CC,CHP=9D95BBA36EAE4F29,VOL=SWK323
WER416B TOTAL OF 20 EXCP'S ISSUED FOR SORTWORKS
WER416B TOTAL OF 36 EXCP'S ISSUED FOR SORTING
WER246I FILESIZE 17,628,642 BYTES
WER054I RCD IN 94411, OUT 94411
WER169I RELEASE 1.1B BATCH 0385 TPF LEVEL 2B
WER052I END SYNCSORT - TSTA125T,TSSRRPT,SKBBLO1A,DIAG=AE00,F9D3,823B,2C5F,F7D6,48CB,0668,04E6
1 SYNCSORT FOR Z/OS 1.1BRI TPF2B U.S. PATENTS: 4210961, 5117495 (C) 2002 SYNCSORT INC. DATE=2005/116 TIME=19.45.47
ELECTRONIC DATA SYSTEMS z/OS 1.4.0
PRODUCT LICENSED FOR CPU SERIAL NUMBER 21011, MODEL 2000 LICENSE/PRODUCT EXPIRATION DATE: 02 DEC 2006
PARMLIST :
SORT FIELDS=(5,2,CH,A,9,2,CH,A,55,5,CH,A,15,2,CH,A,47,4,CH,A)
RECORD TYPE=V,LENGTH=(9425)
OPTION MAINSIZE=20000000,SORTDD=SORT
IBM0534S ONCODE=8094 Protection exception
From compile unit SKBBLO1A at entry point DSTSEN_TBL_STR_RECS at compile unit offset +0001209E at entry
offset +000000D6 at address 14413186.
<> LEAID ENTERED (LEVEL 07/09/2002 AT 11.37)
<> LEAID PROCESSING COMPLETE.
WER152B REQUESTED VIRTUAL STORAGE NOT AVAILABLE, 1,012K BYTES USED
WER164B 13,800K BYTES OF VIRTUAL STORAGE AVAILABLE, 20,000,000 BYTES REQUESTED,
WER164B 156K BYTES RESERVE REQUESTED, 13,300K BYTES USED
WER146B 12K BYTES OF EMERGENCY SPACE ALLOCATED
WER110I SORTOUT : RECFM=VB ; LRECL= 9425; BLKSIZE= 27998
WER410B 12,768K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 12,764K BYTES USED
WER036B G=294904
WER133A E15 USER EXIT RETURN CODE TERMINATE
WER055I INSERT 64182, DELETE 0
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
CEE3250C The system or user abend U 016 R=NULL was issued.
From compile unit SKBBLO1A at entry point BASELINE_SORT_DTLIN_SRT_ORD at compile unit offset +00010838 at
entry offset +00000130 at address 14411920.
<> LEAID ENTERED (LEVEL 07/09/2002 AT 11.37)
<> LEAID LEAID109 ABEND-AID PROCESSING IGNORED. ABEND SPECIFIED NO DUMP
<> LEAID PROCESSING COMPLETE.

-------------------------------
SOURCE CODE
-------------------------------

/* DATA SET SKBBLO1A AT LEVEL 219 AS OF 11/07/00 */00010099
/* (STRINGRANGE,SUBSCRIPTRANGE): /* NOT IN PRODUCTION!!!!! */00020099
/* */00020199
/*01/01/98 START CBSI Y2K */08/17/98

/**************************************************************/ 01778899
/* RUNTIME PARAMETER FOR ALLOCATING SPACE ABOVE 16M LINE */ 01778999
/* ========================================================== */ 01779099
/* NOTE: SUPERCEDED BY INTRO OF LEBIGNNN MODULE ON 4-30-97 */ 01779199
/**************************************************************/ 01779299
01779399
DCL PLIXOPT CHAR(140) VARYING STATIC EXTERNAL 01779499
INIT('HEAP(164M,16M,ANY,FREE)'); 01779599
01779699
/**************************************************************/ 01779799
/**************************************************************/ 01779899
/* FILE DESCRIPTIONS */ 01779999
/**************************************************************/ 01780099
/**************************************************************/ 01780199
01780299
DCL DTLIN FILE INPUT RECORD; 01780399
DCL (DOA_RPT(100),DOA_ANY) CHAR(1); 01781099
DCL (CSLREAL_RPT(100),CSLREAL_ANY) CHAR(1); 01790099
DCL CSLREAL FILE RECORD; 01800099
DCL (CSLREAL_DYN_ALLOC) CHAR(1) INIT('0'); 01810099
DCL CSLREAL_REC_CHAR CHAR(80); 01820099
DCL CSLREAL_DD CHAR(8) INIT('CSLREAL '); 01830099
DCL CSLREAL_DSN CHAR(44) INIT('PPGB.PARMLIB'); 01840099
DCL CSLREAL_MBR CHAR(8) INIT('CSLREAL'); 01850099
DCL CSLREAL_PTR POINTER; 01860099
DCL 1 CSLREAL_REC UNAL BASED(CSLREAL_PTR), 01870099
3 ORG CHAR(3), 01880099
3 FLAG CHAR(1), 01890099
3 FILLER CHAR(76); 01900099
DCL MKTADJ FILE RECORD; 01910099
DCL MKTADJ_REC_CHAR CHAR(2000); 01920099
DCL MKTADJ_PTR POINTER; 01930099
DCL 1 MKTADJ_REC UNAL BASED(MKTADJ_PTR), 01940099
3 RPT_SUB FIXED BIN(15), 01950099
3 MKT_SUB FIXED BIN(15), 01960099
3 DG_NUM FIXED BIN(31), 01970099
3 #W FIXED BIN(15), 01980099
3 A (60 REFER(MKTADJ_REC.#W)), 01990099
5 UN FLOAT DEC(16), 02000099
5 BU FLOAT DEC(16), 02010099
5 N FIXED BIN(15), 02020099
5 Z FIXED BIN(15); /*AAS1*/ 02020099
/* 5 UN PIC 'ZZZZZZ9.V999', */ 02030099
/* 5 BU PIC 'ZZZZZZ9.V999', */ 02040099
/* 5 N PIC 'ZZZ9'; */ 02050099
02060099
DCL STRREL FILE RECORD; /*AAS2*/ 02060099
DCL STRREL_RECORD CHAR(115); 02060099
DCL STR_REL_PTR POINTER; 02060099
DCL 1 STRREL_DET_RECORD BASED(STR_REL_PTR), 02060099
3 STRREL_CELL_ID CHAR (5), 02060099
3 STRREL_CELL_DESC CHAR (50), 02060099
3 STRREL_PSEUDO CHAR (5), 02060099
3 STRREL_FILLER1 CHAR (55); /*AAS2*/ 02060099
02060099
DCL DEALMAP FILE INPUT RECORD; 02060099
DCL DBDESC FILE INPUT RECORD; 02070099
DCL BRDPRC FILE INPUT RECORD; 02080099
DCL FDLXREF FILE INPUT RECORD; 02081099
DCL STRUSE FILE INPUT RECORD; 02082099
DCL RPTSPEC FILE UPDATE RECORD KEYED ENV(VSAM); 02083099
DCL DTLOUT FILE OUTPUT RECORD; 02084099
DCL SYSPRINT FILE OUTPUT; 02085099
02086099
/**************************************************************/ 02087099
/* PL/I BUILTIN FUNCTIONS */ 02088099
/**************************************************************/ 02089099
02090099
%INCLUDE BUILTINS; 02100099
%INCLUDE SKBDYNXP; 02110099
DCL (PLISRTA) BUILTIN; 02120099
DCL (PLISRTB) BUILTIN; /*AAS2*/ 02120099
DCL SORT_RC FIXED BIN(31); 02130099
DCL I01_ID CHAR(60); 02140099
02150099
/**************************************************************/ 02160099
/* BASELINE COMPRESSED DETAIL INPUT FILE */ 02170099
/**************************************************************/ 02180099
%INCLUDE SC07CDI2; 02190099
02200099
/**************************************************************/ 02210099
/* BASELINE INPUT RECORD WORK AREA */ 02220099
/**************************************************************/ 02230099
%INCLUDE SC07WDA2; 02240099
02250099
/**************************************************************/ 02260099
/* BASELINE COMPRESSION RECORD WORK AREA */ 02270099
/**************************************************************/ 02280099
%INCLUDE SC07WCA2; 02290099
02300099
/**************************************************************/ 02310099
/* DEAL MAP INPUT FILE */ 02320099
/**************************************************************/ 02330099
%INCLUDE SK25FDS2; 02340099
02350099
/**************************************************************/ 02360099
/* DBDESC UNLOAD UPC/BRAND INPUT FILE */ 02370099
/**************************************************************/ 02380099
%INCLUDE SC07DBD1; 02390099
02400099
/**************************************************************/ 02410099
/* BRAND/MARKET MILLER PRICE SEGMENT INPUT FILE */ 02420099
/**************************************************************/ 02430099
02440099
DCL BRD_MKT_RECORD CHAR(85) INIT((85)' '); 02450099
DCL BMR_PTR POINTER INIT(NULL); 02460099
02470099
DCL 1 BRD_MKT_REC BASED(BMR_PTR) UNALIGNED, 02480099
3 BMR_BRAND_DESC CHAR (30), 02490099
3 BMR_BRAND_ID CHAR(10), 02500099
3 BMR_MKT_PRICE_SEGMENT, 02510099
5 BMR_MKT_PRC_IND(45), 02520099
7 BMR_MP_IND CHAR (1); 02530099
02540099
/**************************************************************/ 02550099
/* INPUT FILE RECORD */ 02560099
/**************************************************************/ 02570099
DCL FDLXREF_PTR POINTER; 02580099
DCL 1 FDLXREF_REC UNALIGNED BASED(FDLXREF_PTR), 02590099
3 FDLXREF_STORE CHAR (5), 02600099
3 FDLXREF_FILL1 CHAR (22), 02610099
3 FDLXREF_MKTCODE CHAR (3), 02620099
3 FDLXREF_FILL2 CHAR (29), 02630099
3 FDLXREF_STATE CHAR (2); 02640099
02650099
/**************************************************************/ 02660099
/* STORE/WEEK USEABILITY INPUT FILE */ 02670099
/**************************************************************/ 02680099
02690099
DCL USE_RECORD CHAR(69) INIT((69)' '); 02700099
DCL USE_PTR POINTER INIT(NULL); 02710099
02720099
DCL 1 USEABILITY_RECORD BASED(USE_PTR) UNALIGNED, 02730099
3 UR_DESC, 02740099
5 UR_REPORT_SUB BINARY FIXED (15), 02750099
5 UR_STORE CHAR(5), 02760099
5 UR_NUM_OF_WKS BINARY FIXED (15), 02770099
3 UR_WEEK_USEABILITY, 02780099
5 UR_USE_INDICATORS(60), 02790099
7 UR_USE_IND CHAR (1); 02800099
02810099
/**************************************************************/ 02820099
/* REPORT SPEC INPUT FILE */ 02830099
/**************************************************************/ 02840099
%INCLUDE SK03PRS1; 02850099
02860099
/**************************************************************/ 02870099
/* BASELINE COMPRESSED DETAIL OUTPUT FILE */ 02880099
/**************************************************************/ 02890099
%INCLUDE SC07CDO2; 02900099
02910099
/**************************************************************/ 02920099
/* TIME AND DATE RECORDS FOR DATA MANAGEMENT */ 02930099
/**************************************************************/ 02940099
%INCLUDE DATETIME; 02950099
02960099
/**************************************************************/ 02970099
/* MAXIMUM COUNTS FOR CONTROLLED TABLE */ 02980099
/* AND VARIABLE RECORD STRUCTURES */ 02990099
/**************************************************************/ 03000099
%INCLUDE MAXCNT; 03010099
03020099
/**************************************************************/ 03030099
/* COMPRESSION ROUTINE WORK FIELDS */ 03040099
/**************************************************************/ 03050099
%INCLUDE SC07PKP2; 03060099
03070099
/**************************************************************/ 03080099
/* TABLES & ARRAYS */ 03090099
/**************************************************************/ 03100099
03110099
/**************************************************************/ 03120099
/* PRODUCT/STUB RELATED TABLES & ARRAYS */ 03130099
/**************************************************************/ 03140099
03140199
DCL MAX_STR_IN_RPT FIXED BIN(31) INIT(20000); 03140299
DCL MAX_ORGS_REAL FIXED BIN(15) INIT(1000); /*TAB2*/ 03140399
/*DCL MAX_DG_NUM FIXED BIN(31) INIT(64000);*/ 03140499
/* BUMPED LIMIT FOR MAX_DG_NUM TO 128000 */
/* BUMPED LIMIT FOR MAX_DG_NUM TO 200000 AAS1 */
DCL MAX_DG_NUM FIXED BIN(31) INIT(200000); 03140499
DCL MAX_PC_CNT FIXED BIN(15) INIT(1300); /* AAS1*/ 05450099
DCL MAX_STRREL FIXED BIN(31) INIT(99999); /* AAS2*/ 05450099
DCL MAX_CELL FIXED BIN(15) INIT(1000); /* AAS2*/ 05450099
DCL DST_CTL_REQ CHAR(1); /* AAS2*/ 03140599
DCL DS2_CTL_REQ CHAR(1); /* TAB9*/ 03140599
DCL DST_DS2_CTL_REQ CHAR(1); /* TAB9*/ 03140599
DCL 1 XSB_CTL, 03140599
3 ALLOC_VERBOSE CHAR(1), 03140699
3 VERBOSE CHAR(1), 03140799
3 REQD CHAR(1), 03140899
3 STR_REQD CHAR(1), 03140999
3 ERR CHAR(1); 03141099
DCL 1 XSB_STR CTL, 03142099
3 BS_TARG CHAR(5), 03143099
3 N_MAX FIXED BIN(15), 03144099
3 N_OCC FIXED BIN(15), 03145099
3 N_NEEDED FIXED BIN(15), 03146099
3 SUB FIXED BIN(15), 03147099
3 A (10000), 03148099
5 PSEUDO CHAR(5), 03149099
5 NEEDED CHAR(1); 03150099
DCL XSP_CTL_REQD CHAR(1); /*AAS1*/ 03160099
DCL XSP_TST_REQD CHAR(1); /*AAS1*/ 03160099
DCL (MAX_STU_OR_STR_CNT, MAX_XSB_STR) FIXED BINARY (31); 03160099
/*DCL (MIN_XSB_STR) FIXED BINARY (31) INIT(200);*/ 03170099
DCL (MIN_XSB_STR) FIXED BINARY (31) INIT(350); 03170099
DCL (XSB_STR_BUFFER) FIXED BINARY (31) INIT(200); 03170099
DCL TAB_REPORT_POS (MAX_STU_CNT) FIXED BINARY (15) CTL 03180099
INIT((MAX_STU_CNT)0); 03190099
DCL TAB_CAT_UN (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03200099
INIT((MAX_WKS_TAP)0); 03210099
DCL TAB_CAT_BU (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03220099
INIT((MAX_WKS_TAP)0); 03230099
DCL TAB_TREND_UN (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03240099
INIT((MAX_WKS_TAP)0); 03250099
DCL TAB_TREND_BU (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03260099
INIT((MAX_WKS_TAP)0); 03270099
DCL TAB_TREND_N (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); 03290099
DCL TAB_TREND_Z (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); /*AAS1*/ 03290099
DCL TAB_CAT_MK_FCT ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03300099
INIT((MAX_WKS_TAP)0); 03310099
DCL TAB_PC_MK_FCT ( MAX_PC_CNT, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03300099
DCL TAB_TREND_MK_FCT (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03320099
DCL TAB_CAT_OA_FCT ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03330099
DCL TAB_TREND_OA_FCT (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03340099
INIT((MAX_DG_NUM* MAX_WKS_TAP)0); 03350099
DCL TAB_CAT_OA_UN ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03360099
DCL TAB_CAT_OA_BU ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03370099
DCL TAB_TREND_OA_UN (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03380099
DCL TAB_TREND_OA_BU (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03390099
DCL TAB_TREND_OA_N (MAX_DG_NUM, MAX_WKS_TAP) FIXED BIN (15) CTL; 03400099
DCL MKTADJ_FCT_CLR ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03410099
INIT(( MAX_WKS_TAP)1); 03420099
DCL TAB_PSEUDO (MAX_XSB_STR) CHAR(5) CTL 03430099
INIT((MAX_XSB_STR)' '); 03440099
DCL TAB_ORG (MAX_XSB_STR) CHAR(3) CTL 03450099
INIT((MAX_XSB_STR)' '); 03460099
DCL TAB_BRAND_POS (MAX_STU_CNT) FIXED BINARY (15) CTL 03470099
INIT((MAX_STU_CNT)0); 03480099
DCL (DO_SKBBLOC) CHAR (1) INIT('Y'); 03490099
DCL TAB_BRAND_KEY (MAX_STU_CNT) CHAR (30) CTL 03500099
INIT((MAX_STU_CNT)(30)' '); 03510099
DCL (HI_DG,HI_DG_RPT(100),DG_IND) FIXED BIN(31); 03520099
DCL TAB_DG (MAX_STU_CNT) FIXED BINARY (31) CTL 03530099
INIT((MAX_STU_CNT)0); 03540099
DCL TAB_ITEM_POS (MAX_STU_CNT) FIXED BINARY (31) CTL; 03550099
DCL TAB_CAUSAL_INDICS(MAX_STU_CNT,MAX_WKS_TAP) CHAR (50) CTL; 03560099
DCL TAB_UNITS (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03570099
DCL TAB_PRICE (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03580099
DCL TAB_LIN_PRICE (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03590099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03600099
DCL TAB_NUM_PRICE (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03610099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03620099
DCL TAB_SPM (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY (15) CTL 03630099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03640099
DCL TAB_TEMP_SPM (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY (15) CTL 03650099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03660099
DCL TAB_DOL (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03670099
DCL TAB_CPN_VALUE (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY (15) CTL 03680099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03690099
DCL TAB_SHELF_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03700099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03710099
DCL TAB_DISPLAY_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03720099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03730099
DCL TAB_RESERVE_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03740099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03750099
DCL TAB_IRC_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03760099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03770099
DCL TAB_NIRC_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03780099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03790099
DCL TAB_SIGNAGE_I (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY(15) CTL 03800099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03810099
DCL TAB_STICKER_I (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY(15) CTL 03820099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03830099
/* AAS4 */ 03830099
DCL TAB_EC1_DATA (MAX_STU_CNT,MAX_WKS_TAP) CHAR (6) CTL 03840099
INIT((MAX_STU_CNT*MAX_WKS_TAP)(6)' '); 03850099
DCL TAB_EC2_INDICS (MAX_STU_CNT,MAX_WKS_TAP) CHAR (16) CTL 03840099
INIT((MAX_STU_CNT*MAX_WKS_TAP)(16)' '); 03850099
DCL TAB_BUY_I (MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 03860099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03870099
DCL TAB_GET_I (MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 03880099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03890099
DCL TAB_NOI_I (MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 03900099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03910099
DCL TAB_REB_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03920099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03930099
03940099
/* 03950099
DCL TAB_STUB_ITEM_POS (MAX_SPG_CNT,MAX_SPU_CNT) FIXED BINARY(31) CTL; 03950099
DCL TAB_STUB_UPC_SPIND(MAX_SPG_CNT,MAX_SPU_CNT) BIN FIXED(15) CTL; 03960099
*/ 03950099
DCL TAB_STUB_ITEM_POS (MAX_SPU_CNT) FIXED BINARY(31) CTL; /*AAS1*/ 03950099
DCL TAB_STUB_UPC_SPIND(MAX_SPU_CNT) FIXED BINARY(15) CTL; 03960099
DCL 1 TAB_STUB_DEAL_GRP (MAX_SPG_CNT) CTL, 03950099
5 ITEM_START FIXED BINARY(31), 03950099
5 ITEM_END FIXED BINARY(31); 03950099
/*DCL NUPC(MAX_SPG_CNT) BINARY FIXED (15) AUTO;*/ 03970099
DCL XREF(MAX_SPU_CNT) BINARY FIXED (15) AUTO; 03980099
DCL (XREF_HI) BINARY FIXED (15) INIT(MAX_SPU_CNT);
DCL TAB_PC_UN (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL /*AAS1-B*/ 03220099
INIT((MAX_WKS_TAP)0); 03230099
DCL TAB_PC_BU (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03220099
INIT((MAX_WKS_TAP)0); 03230099
DCL TAB_PC_N (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); 03290099
DCL TAB_PC_UN_GT_BU (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); 03290099
03990099
/*080197*/ 04000099
/***************************/ 04010099
/* DBDESC FILE TABLE */ 04020099
/***************************/ 04030099
04040099
DCL 1 DBDESC_ARRAY_TABLE (MAX_UPC_CNT), 04050099
5 DAT_RPT_SUB BINARY FIXED (15) INIT (0), 04050199
5 DAT_BRAND_POS BINARY FIXED (15) INIT (0), 04050299
5 DAT_ITEM_POS BINARY FIXED (31) INIT (0), 04050399
5 DAT_ITEM_DESC CHAR (30) INIT (' '), 04050499
5 DAT_MULT_PACK PIC '999' INIT (0); 04050599
04050699
DCL DAT_CNT BINARY FIXED (15) INIT(0); 04050799
04050899
DCL FIRST_TIME CHAR(1) STATIC INIT('Y'); 04050999
04051099
/*080197*/ 04051199
04051299
/***************************/ 04051399
/* UPC FEATURE TABLE */ 04051499
/***************************/ 04051599
04051699
DCL UFAT(MAX_STU_CNT) CHAR(1) CTL; 04051799
DCL UFT(MAX_STU_CNT,MAX_WKS_TAP,MAX_FET_CNT) BIN FIXED (15) CTL; 04051899
04051999
/***********************/ 04052099
/* UPC DISPLAY TABLE */ 04053099
/***********************/ 04054099
04055099
DCL UDAT(MAX_STU_CNT) CHAR(1) CTL; 04056099
DCL ( MVC_FET, MVC_DSP, 04057099
MVC_MWC_CND_2,MVC_MWC_4,MVC_MWT_6, 04058099
MVC_MWT_2,MVC_MWT_4 ,MVC_MWT_8, MVC_MWT_16 , MVC_MWT_50 ) 04059099
BINARY FIXED(31); 04060099
DCL UDT(MAX_STU_CNT,MAX_WKS_TAP,MAX_DSP_CNT) BIN FIXED (15) CTL; 04070099
04080099
DCL (X#) BINARY FIXED (15) INIT(0); 04090099
DCL (HI_U,HI_S,HI_REAL#) BINARY FIXED (15) INIT(0); 04100099
04110099
/***************************************/ 04120099
/* UPC & FACT RELATED TABLES & ARRAYS */ 04130099
/***************************************/ 04140099
04150099
DCL TAB_BASE(MAX_STU_CNT,MAX_WKS_TAP) DEC FLOAT (16) CTL 04160099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04170099
DCL TAB_RPR(MAX_STU_CNT,MAX_WKS_TAP) DEC FLOAT (16) CTL 04180099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04190099
DCL MAX_PDL_CNT BINARY FIXED (15) INIT (5); 04200099
DCL MAX_OOS_CNT BINARY FIXED (15) INIT (3); 04210099
DCL MAX_SPM_CNT BINARY FIXED (15) INIT (12); 04220099
DCL TAB_PDB(MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 04230099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04240099
DCL TAB_PDL(MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 04250099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04260099
DCL TAB_OOS(MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 04270099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04280099
DCL BASE_IND(MAX_STU_CNT) BINARY FIXED (15) CTL 04290099
INIT((MAX_STU_CNT)0); 04300099
04310099
/****************************************/ 04320099
/* MILLER CUSTOM PRICE SEGMENT ARRAYS */ 04330099
/****************************************/ 04340099
04350099
DCL TAB_CPS_ITEM_POS (MAX_UNU_CNT) FIXED BINARY (31) CTL 04360099
INIT((MAX_UNU_CNT)0); 04370099
DCL TAB_CPS_MKT_INDS (MAX_UNU_CNT,45) CHAR (1) CTL 04380099
INIT((MAX_UNU_CNT*45)(' ')); 04390099
DCL STORES_CTR BINARY FIXED (31) INIT(0); 04400099
DCL CHARVAL_CTR BINARY FIXED (31) INIT(0); 04410099
DCL 1 ORG_REAL CTL, 04420099
3 BS_TARG CHAR(3), 04430099
3 N_MAX FIXED BIN(15), 04440099
3 N_OCC FIXED BIN(15), 04450099
3 SUB FIXED BIN(15), 04460099
3 A (MAX_ORGS_REAL), 04470099
5 ORG CHAR(3), 04480099
5 FLAG CHAR(1); 04490099
DCL (STR_USBL_MAX,STR_USBL_N,STR_USBL_SUB) FIXED BIN(31); 04500099
DCL (STR_USBL_SUB_M) FIXED BIN(31); /*AXA2*/ 04500099
DCL 1 STR_USBL (MAX_STR_IN_RPT) CTL, 04510099
3 PSEUDO CHAR(5), 04520099
3 USBL (MAX_WKS_TAP) CHAR(1); 04530099
DCL TAB_STORES(90000) CHAR(5); 04540099
DCL TAB_MKTNO(90000) BINARY FIXED (15); 04550099
DCL IDMKT BINARY FIXED (31) INIT(1); 04560099
DCL IDUPC BINARY FIXED (31) INIT(1); 04570099
DCL MKT_POS BINARY FIXED (31) INIT(0); 04580099
DCL UPC_POS BINARY FIXED (31) INIT(0); 04590099
04600099
/*********************************************/ 04610099
/* CONDITION RULES RELATED TABLES & ARRAYS */ 04620099
/*********************************************/ 04630099
04640099
DCL TAB_FET_DEF(MAX_CND_CNT,MAX_FET_CNT) BINARY FIXED (15) AUTO; 04650099
DCL TAB_DSP_DEF(MAX_CND_CNT,MAX_DSP_CNT) BINARY FIXED (15) AUTO; 04660099
DCL TAB_FET_TYPE(MAX_CND_CNT,MAX_FET_CNT) BINARY FIXED (15) AUTO; 04670099
DCL TAB_DSP_TYPE(MAX_CND_CNT,MAX_DSP_CNT) BINARY FIXED (15) AUTO; 04680099
DCL TAB_PDL_DEF(MAX_CND_CNT,MAX_PDL_CNT) BINARY FIXED (15) AUTO; 04690099
DCL TAB_OOS_DEF(MAX_CND_CNT,MAX_OOS_CNT) BINARY FIXED (15) AUTO; 04700099
DCL TAB_OOS_FROM_VALUE(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04710099
DCL TAB_OOS_TO_VALUE(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04720099
DCL TAB_BOGO_BUY_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04730099
DCL TAB_BOGO_GET_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04740099
DCL TAB_BDWN_FROM_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04750099
DCL TAB_BDWN_TO_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04760099
DCL TAB_MOFF_FROM_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04770099
DCL TAB_MOFF_TO_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04780099
DCL TAB_NPRC_FROM_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04790099
DCL TAB_NPRC_TO_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04800099
DCL TAB_SPM_DEF(MAX_CND_CNT,MAX_SPM_CNT) BINARY FIXED (15) AUTO; 04810099
DCL TAB_BUY_VALS (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04820099
DCL TAB_GET_VALS (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04830099
DCL NFET(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04840099
DCL NFET_SCR(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04850099
DCL NDSP(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04860099
DCL NDSP_SCR(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04870099
DCL NPDL(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04880099
DCL NOOS(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04890099
DCL NSPM(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04900099
DCL SCORE(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04910099
DCL INFLAGS(MAX_WKS_CNT,MAX_CND_CNT) BINARY FIXED (15) AUTO; 04920099
04930099
DCL RWU (MAX_WKS_TAP) DEC FLOAT (16) CTL; 04940099
DCL P (MAX_WKS_TAP) DEC FLOAT (16) CTL; 04950099
DCL RPR (MAX_WKS_TAP) DEC FLOAT (16) CTL; 04960099
DCL RPR_BASE (MAX_WKS_TAP) DEC FLOAT (16) CTL; 04970099
DCL PBSU (MAX_WKS_TAP) DEC FLOAT (16) CTL; 04980099
DCL BASE1(MAX_WKS_TAP) DEC FLOAT (16) CTL; 04990099
05000099
DCL VALUE(MAX_WKS_TAP) BINARY FIXED (15) CTL; 05010099
DCL BUYV (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05020099
DCL GETV (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05030099
DCL BDWN (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05040099
DCL MOFF (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05050099
DCL NPRC (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05060099
DCL PDL (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05070099
DCL PDB (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05080099
DCL OOS (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05090099
DCL SPM (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05100099
DCL FET (MAX_WKS_TAP,MAX_FET_CNT) BINARY FIXED (15) CTL; 05110099
DCL DSP (MAX_WKS_TAP,MAX_DSP_CNT) BINARY FIXED (15) CTL; 05120099
05130099
/* DCL NUM_COLLAPSED_WEEKS(MAX_WKS_TAP) BINARY FIXED (15) CTL; */05140099
DCL HOLD_CAUSAL_INDICS(MAX_WKS_TAP) CHAR (50) CTL; 05150099
DCL OUTFLAGS(MAX_WKS_CNT) BINARY FIXED (31) AUTO; 05160099
05170099
DCL 1 WORK_CAUSAL_INDICS, 05180099
3 WCI_DISPLAY_DATA, 05190099
5 WCI_NUM_DISP PIC '9', 05200099
5 WCI_POP_INDIC CHAR (1), 05210099
5 WCI_DISPLAY_LOC(6), 05220099
7 WCI_DISP CHAR (1), 05230099
7 WCI_DISP_CN_NUM PIC '999', 05240099
7 WCI_KIND_OF_DIS PIC '9'; 05250099
05260099
/************************************************************/ 05270099
/* VARIABLE DECLARATIONS */ 05280099
/************************************************************/ 05290099
05300099
DCL NUM_COLLAPSED_ITEMS BINARY FIXED (15) INIT(0); 05310099
DCL NUM_OF_DISPLAYS BINARY FIXED (15) INIT(0) STATIC; 05320099
/*DCL STUB_CTR BINARY FIXED (15) INIT(0); */ 05330099
DCL STUB_CTR BINARY FIXED (31) INIT(0); 05330099
DCL DISP_SUB BINARY FIXED (15) INIT(0); 05340099
DCL MOVE_SUB BINARY FIXED (15) INIT(0); 05350099
DCL WEEK_SUB BINARY FIXED (15) INIT(0); 05360099
DCL VALID_WEEKS BINARY FIXED (15) INIT(0); 05370099
DCL MAX_WKS_UPD BINARY FIXED (15) INIT(0); 05380099
DCL FIRST_RPT_WK BINARY FIXED (15) INIT(0); 05390099
DCL LAST_RPT_WK BINARY FIXED (15) INIT(0); 05400099
DCL MAX_WKS_TAP BINARY FIXED (15) INIT(0); 05410099
DCL ALLOC_VAR BINARY FIXED (31) INIT(0); /* RZN2 */ 05410099
DCL (PASS_INDIC) CHAR(1); 05420099
DCL (PASS_LIT) CHAR(12); 05430099
DCL (XSB_MARKET) CHAR(5); 05440099
DCL (XSB_SPEC ) CHAR(9); 05450099
DCL PCDG_REC_COUNT PIC '99999999' INIT(0); /*AAS1-B*/ 05450099
DCL PC# BINARY FIXED (15) INIT(0); 05450099
DCL HA_RPT_PC BINARY FIXED (15) INIT(0); 05450099
DCL MAX_PC BINARY FIXED (15) INIT(0); 05450099
DCL 1 HA_PC_DG_TABLE (MAX_PC_CNT), 05450099
5 HA_PC PIC '9999', 05460099
5 HA_FIRST_DG BINARY FIXED (31), 05460099
5 HA_LAST_DG BINARY FIXED (31), 05460099
5 HA_POS_SUB BINARY FIXED (15), 05460099
5 HA_NEG_SUB BINARY FIXED (15); 05460099
DCL START# BINARY FIXED (31) INIT(1); 05450099
DCL END# BINARY FIXED (31) INIT(0); /*AAS1-E*/ 05450099
/* BEGIN AAS2 CHANGES*/ 05460099
05460099
DCL UPC_STR_N FIXED BIN(31); 04500099
DCL 1 SORT_OUT_REC CHAR(9425) VARYING; 05460099
DCL SOR_PTR POINTER INIT(NULL); 05460099
DCL SOR_LENGTH FIXED BIN(15) BASED(SOR_PTR); 05460099
05460099
DCL 1 STRREL_TBL (MAX_STRREL), 05460099
5 SRT_CELL_ID CHAR(5) INIT( (MAX_STRREL)(5)' ' ), 05460099
5 SRT_XREF BINARY FIXED (31); 05460099
05460099
DCL 1 CELL_ID_TBL(MAX_CELL), 05460099
5 CIT_CELL_ID CHAR(5), 05460099
5 CIT_NUM_STRS BINARY FIXED(15); 05460099
05460099
DCL UNLD_REC_READ CHAR(1) INIT('N'); 05460099
05460099
DCL STR_PSEUDO_BIN (UPC_STR_N) BIN FIXED(31) CTL;
DCL STR_DONE_IND (UPC_STR_N) CHAR(1) CTL;
DCL STR_FIRST_WK (UPC_STR_N) BIN FIXED (15) CTL;
DCL STR_LAST_WK (UPC_STR_N) BIN FIXED (15) CTL;
DCL 1 STORE_REC_TABLE(UPC_STR_N) CTL, 05460099
5 STR_REC_DESC, 05460099
7 STRR_RPT_KEY, 05460099
9 STRR_RPT_SUB BINARY FIXED (15), 05460099
9 STRR_INDIC_MKT_NUM, 05460099
10 STRR_PROMO_RPT_INDIC CHAR(2), 05460099
10 STRR_MKT_SUB BINARY FIXED (15), 05460099
10 STRR_MULT_RPT_NUM CHAR(2), 05460099
7 STRR_RPT_POS BINARY FIXED (15), 05460099
7 STRR_RECORD_POS, 05460099
9 STRR_BRAND_POS BINARY FIXED (15), 05460099
9 STRR_BRAND_KEY CHAR (30), 05460099
9 STRR_ITEM_POS BINARY FIXED (31), 05460099
7 STRR_RECORD_TYPE CHAR (1), 05460099
7 STRR_ORG CHAR (3), 05460099
7 STRR_STR CHAR(5), 05460099
7 STRR_STRR_SUB BINARY FIXED (15), 05460099
7 STRR_NUM_WKS BINARY FIXED (15), 05460099
5 STR_MVMT_BSLN(MAX_WKS_TAP), 05460099
7 STR_MVMT, 05460099
10 STR_UNITS DECIMAL FIXED (9), 05460099
10 STR_PRICE DECIMAL FIXED (5,2), 05460099
7 STR_BSLN, 05460099
10 STR_BSLN_SALES_UNITS DECIMAL FLOAT (16), 05460099
10 STR_BSLN_SELL_PRICE DECIMAL FIXED (5,2), 05460099
10 STR_BSLN_CONDITIONS BINARY FIXED (31), 05460099
5 STR_SELL_PR_MULT(MAX_WKS_TAP) PIC '999', 05460099
5 STR_CAUSAL(MAX_WKS_TAP), 05460099
10 STR_CAUSAL_DATA CHAR(50), 05460099
5 STR_INV(MAX_WKS_TAP), 05460099
10 STR_INV_DATA CHAR(25), 05460099
5 STR_EXP1(MAX_WKS_TAP), 05460099
10 STR_EXP1_DATA CHAR(6), 05460099
5 STR_EXP2(MAX_WKS_TAP), 05460099
10 STR_EXP2_DATA CHAR(25), 05460099
5 STR_WEEK_PRICE(MAX_WKS_TAP), 05460099
10 ANCHOR_PRICE DECIMAL FIXED(5,2), 05460099
5 STR_PROMO_IND(MAX_WKS_TAP) CHAR(1);
05460099
DCL 1 CELL_WEEK(60), 05460099
5 PD_NP_TOT FLOAT DEC(16), 05460099
5 PD_AP_TOT FLOAT DEC(16), 05460099
5 PD_MEDIAN_NP FLOAT DEC(16), 05460099
5 PD_MEDIAN_AP FLOAT DEC(16), 05460099
5 NUM_STRS_AP BINARY FIXED(31), 05460099
5 NUM_STRS_NP BINARY FIXED(31); 05460099
05460099
DCL STR# BINARY FIXED(31) INIT(0); 05460099
DCL BSLN_FIRST_WK BINARY FIXED(15) INIT(0); /*TAB9*/ 05460099
DCL BSLN_LAST_WK BINARY FIXED(15) INIT(0); /*TAB9*/ 05460099
DCL TOT_RECS_TO_RETURN BINARY FIXED(31) INIT(0); 05460099
DCL DSTSEN_PRICE_IMPUTE_DONE CHAR(1) INIT('N'); 05460099
DCL HA_ITEM_POS BINARY FIXED(31) INIT(0); 05460099
DCL MAX_STRS_N_CELL BINARY FIXED(31) INIT(500); 05460099
05460099
DCL 1 PD_NP_TBL(MAX_WKS_TAP) CTL, 05460099
5 PD_NP(MAX_STRS_N_CELL) FLOAT DEC(16); 05460099
05460099
DCL 1 PD_AP_TBL(MAX_WKS_TAP) CTL, 05460099
5 PD_AP(MAX_STRS_N_CELL) FLOAT DEC(16); 05460099
05460099
/* END AAS2 CHANGES */ 05460099
05460099
/*****************************************************/ 05470099
/* PASS_INDIC 0) INIT */ 05480099
/* 1) XSCHECK */ 05490099
/* 2) XSB-MKTADJUST */ 05500099
/* 3) BASELINE */ 05510099
/* 4) NORMAL */ 05520099
/*****************************************************/ 05530099
05540099
DCL (PRT_CTR,PRT_CTR_SPEC) BINARY FIXED (15) INIT(0); 05550099
DCL (PRT_CTR_SPEC_CEN) BINARY FIXED (15) INIT(0); /*AXA5*/ 05550099
DCL NCOND BINARY FIXED (15) INIT(0); 05560099
DCL PRICE_WK BINARY FIXED (15) INIT(0); 05570099
DCL NBOGO BINARY FIXED (15) INIT(0); 05580099
DCL NBOGO_USED BINARY FIXED (15) INIT(0); 05590099
DCL SW_BOGO_FOUND CHAR (1) INIT(' '); 05600099
DCL RET_CODE BINARY FIXED (31) INIT(0); 05610099
DCL SW_RACK_IN_PCT_D CHAR (1) INIT(' '); 05620099
DCL SW_RACK_IN_BASELINE CHAR (1) INIT(' '); 05630099
DCL SW_PERM_IN_PCT_D CHAR (1) INIT(' '); /*PPP-B*/ 05620099
DCL SW_PERM_IN_BASELINE CHAR (1) INIT(' '); /*PPP-B*/ 05630099
DCL SW_IRCS_IN_BASELINE CHAR (1) INIT(' '); 05640099
DCL SW_PMEXPCSL_IN_BASELINE CHAR (1) INIT(' '); 05650099
DCL SW_BSELINE_IDS CHAR (1) INIT(' '); /* PPP */
DCL SW_CENSUS_SPEC_IND CHAR (1) INIT(' '); /*AXA2*/ 05650099
DCL SW_MIX_STR CHAR (1) INIT('N'); /*AXA2*/ 05650099
DCL SW_REACH_REQ_IND CHAR (1) INIT(' '); /*AXA4*/ 05650099
DCL BIN_PRC_DECR_WEEKS BINARY FIXED (15); 05660099
DCL PR_DCR_1_INIT BINARY FIXED (15) INIT(9); 05670099
DCL PR_DCR_2_INIT BINARY FIXED (15) INIT(13); 05680099
DCL PR_DCR_1_LOOP BINARY FIXED (15) INIT(7); 05690099
DCL PR_DCR_2_LOOP BINARY FIXED (15) INIT(13); 05700099
DCL SW_LOC_COND_IND CHAR (1) INIT(' '); 05710099
DCL SW_ANY_BASELINE CHAR(1); 05720099
DCL SW_EOF_MKTADJ BINARY FIXED (15) INIT(0); 05730099
DCL SW_EOF_CSLREAL BINARY FIXED (15) INIT(0); 05740099
DCL SW_EOF_DTLIN BINARY FIXED (15) INIT(0); 05750099
DCL SW_EOF_DEAL BINARY FIXED (15) INIT(0); 05760099
DCL SW_EOF_STORE_USE BINARY FIXED (15) INIT(0); 05770099
DCL SW_EOF_DBDESC BINARY FIXED (15) INIT(0); 05780099
DCL SW_EOF_BRDPRC BINARY FIXED (15) INIT(0); 05790099
DCL SW_NEW_DEAL_SPEC BINARY FIXED (15) INIT(0); 05800099
DCL SW_NEW_DBDESC_SPEC BINARY FIXED (15) INIT(0); 05810099
DCL SW_EOF_STRREL BINARY FIXED (15) INIT(0); /*AAS2*/ 05810099
DCL FEAT(MAX_FET_CNT) BINARY FIXED (15) 05820099
INIT((MAX_FET_CNT)0); 05830099
DCL DISP(MAX_DSP_CNT) BINARY FIXED (15) 05840099
INIT((MAX_DSP_CNT)0); 05850099
DCL PA DEC FLOAT (16) INIT(0); 05860099
DCL RP DEC FLOAT (16) INIT(0); 05870099
DCL PRB(5) DEC FLOAT (16) INIT((4)0); 05880099
DCL HLB(2) DEC FLOAT (16) INIT((2)0); 05890099
DCL N_VAL_STRS BINARY FIXED (15) INIT(0); 05890099
DCL RPP DEC FLOAT (16) INIT(0); 05900099
DCL RPP_VAL DEC FLOAT (16) INIT(0); 05910099
DCL BASIS CHAR (1) INIT(' '); 05920099
DCL PARM4IND CHAR (1) INIT('N'); 05920099
DCL SW_REC_FOUND CHAR (1) INIT(' '); 05930099
DCL SW_EMPTY_FILE CHAR (1) INIT(' '); 05940099
DCL 1 RPTSPEC_K_KEY UNALIGNED, 05950099
3 RPTSPEC_KEY_RPT CHAR (9) INIT((9)' '), 05960099
3 RPTSPEC_KEY_MKT CHAR (5) INIT((5)' '), 05970099
3 RPTSPEC_KEY_TYPE CHAR (2) INIT((2)' '), 05980099
3 RPTSPEC_KEY_COUNT CHAR (8) INIT((8)' '); 05990099
DCL RPTSPEC_KEY CHAR(24) BASED(ADDR(RPTSPEC_K_KEY)); 06000099
DCL CURRENT_RPT CHAR (9) INIT((9)' '); 06010099
DCL CURRENT_MKT_SUB FIXED BIN(15) INIT(0); 06020099
DCL CURRENT_RPT_SUB BINARY FIXED (15) INIT(0); 06030099
DCL (CURRENT_STR) CHAR (5) INIT((5)' '); 06040099
DCL CURRENT_ORG CHAR (3) INIT((3)' '); 06050099
DCL ALPHA_OOS_VALUE CHAR (2) INIT((2)' '); 06060099
06070099
% PAGE; 06080099
/**************************************************************/ [/cod

Back to top

karunkallore
Beginner

Joined: 11 Dec 2004
Posts: 76

Posted: 27 Apr 2005 11:41 am Post subject: Apologies.......

--------------------------------------------------------------------------------

The SOURCE CODE was not posted correctly in the previous post i am reposting it .

SOURCE CODE
---------------------

/* DATA SET SKBBLO1A AT LEVEL 219 AS OF 11/07/00 */00010099
/* (STRINGRANGE,SUBSCRIPTRANGE): /* NOT IN PRODUCTION!!!!! */00020099
/* */00020199
/*01/01/98 START CBSI Y2K */08/17/98
SKBBLO1A:PROCEDURE OPTIONS(MAIN REENTRANT) REORDER;
/**************************************************************/ 01778899
/* RUNTIME PARAMETER FOR ALLOCATING SPACE ABOVE 16M LINE */ 01778999
/* ========================================================== */ 01779099
/* NOTE: SUPERCEDED BY INTRO OF LEBIGNNN MODULE ON 4-30-97 */ 01779199
/**************************************************************/ 01779299
01779399
DCL PLIXOPT CHAR(140) VARYING STATIC EXTERNAL 01779499
INIT('HEAP(164M,16M,ANY,FREE)'); 01779599
01779699
/**************************************************************/ 01779799
/**************************************************************/ 01779899
/* FILE DESCRIPTIONS */ 01779999
/**************************************************************/ 01780099
/**************************************************************/ 01780199
01780299
DCL DTLIN FILE INPUT RECORD; 01780399
DCL (DOA_RPT(100),DOA_ANY) CHAR(1); 01781099
DCL (CSLREAL_RPT(100),CSLREAL_ANY) CHAR(1); 01790099
DCL CSLREAL FILE RECORD; 01800099
DCL (CSLREAL_DYN_ALLOC) CHAR(1) INIT('0'); 01810099
DCL CSLREAL_REC_CHAR CHAR(80); 01820099
DCL CSLREAL_DD CHAR( INIT('CSLREAL '); 01830099
DCL CSLREAL_DSN CHAR(44) INIT('PPGB.PARMLIB'); 01840099
DCL CSLREAL_MBR CHAR( INIT('CSLREAL'); 01850099
DCL CSLREAL_PTR POINTER; 01860099
DCL 1 CSLREAL_REC UNAL BASED(CSLREAL_PTR), 01870099
3 ORG CHAR(3), 01880099
3 FLAG CHAR(1), 01890099
3 FILLER CHAR(76); 01900099
DCL MKTADJ FILE RECORD; 01910099
DCL MKTADJ_REC_CHAR CHAR(2000); 01920099
DCL MKTADJ_PTR POINTER; 01930099
DCL 1 MKTADJ_REC UNAL BASED(MKTADJ_PTR), 01940099
3 RPT_SUB FIXED BIN(15), 01950099
3 MKT_SUB FIXED BIN(15), 01960099
3 DG_NUM FIXED BIN(31), 01970099
3 #W FIXED BIN(15), 01980099
3 A (60 REFER(MKTADJ_REC.#W)), 01990099
5 UN FLOAT DEC(16), 02000099
5 BU FLOAT DEC(16), 02010099
5 N FIXED BIN(15), 02020099
5 Z FIXED BIN(15); /*AAS1*/ 02020099
/* 5 UN PIC 'ZZZZZZ9.V999', */ 02030099
/* 5 BU PIC 'ZZZZZZ9.V999', */ 02040099
/* 5 N PIC 'ZZZ9'; */ 02050099
02060099
DCL STRREL FILE RECORD; /*AAS2*/ 02060099
DCL STRREL_RECORD CHAR(115); 02060099
DCL STR_REL_PTR POINTER; 02060099
DCL 1 STRREL_DET_RECORD BASED(STR_REL_PTR), 02060099
3 STRREL_CELL_ID CHAR (5), 02060099
3 STRREL_CELL_DESC CHAR (50), 02060099
3 STRREL_PSEUDO CHAR (5), 02060099
3 STRREL_FILLER1 CHAR (55); /*AAS2*/ 02060099
02060099
DCL DEALMAP FILE INPUT RECORD; 02060099
DCL DBDESC FILE INPUT RECORD; 02070099
DCL BRDPRC FILE INPUT RECORD; 02080099
DCL FDLXREF FILE INPUT RECORD; 02081099
DCL STRUSE FILE INPUT RECORD; 02082099
DCL RPTSPEC FILE UPDATE RECORD KEYED ENV(VSAM); 02083099
DCL DTLOUT FILE OUTPUT RECORD; 02084099
DCL SYSPRINT FILE OUTPUT; 02085099
02086099
/**************************************************************/ 02087099
/* PL/I BUILTIN FUNCTIONS */ 02088099
/**************************************************************/ 02089099
02090099
%INCLUDE BUILTINS; 02100099
%INCLUDE SKBDYNXP; 02110099
DCL (PLISRTA) BUILTIN; 02120099
DCL (PLISRTB) BUILTIN; /*AAS2*/ 02120099
DCL SORT_RC FIXED BIN(31); 02130099
DCL I01_ID CHAR(60); 02140099
02150099
/**************************************************************/ 02160099
/* BASELINE COMPRESSED DETAIL INPUT FILE */ 02170099
/**************************************************************/ 02180099
%INCLUDE SC07CDI2; 02190099
02200099
/**************************************************************/ 02210099
/* BASELINE INPUT RECORD WORK AREA */ 02220099
/**************************************************************/ 02230099
%INCLUDE SC07WDA2; 02240099
02250099
/**************************************************************/ 02260099
/* BASELINE COMPRESSION RECORD WORK AREA */ 02270099
/**************************************************************/ 02280099
%INCLUDE SC07WCA2; 02290099
02300099
/**************************************************************/ 02310099
/* DEAL MAP INPUT FILE */ 02320099
/**************************************************************/ 02330099
%INCLUDE SK25FDS2; 02340099
02350099
/**************************************************************/ 02360099
/* DBDESC UNLOAD UPC/BRAND INPUT FILE */ 02370099
/**************************************************************/ 02380099
%INCLUDE SC07DBD1; 02390099
02400099
/**************************************************************/ 02410099
/* BRAND/MARKET MILLER PRICE SEGMENT INPUT FILE */ 02420099
/**************************************************************/ 02430099
02440099
DCL BRD_MKT_RECORD CHAR(85) INIT((85)' '); 02450099
DCL BMR_PTR POINTER INIT(NULL); 02460099
02470099
DCL 1 BRD_MKT_REC BASED(BMR_PTR) UNALIGNED, 02480099
3 BMR_BRAND_DESC CHAR (30), 02490099
3 BMR_BRAND_ID CHAR(10), 02500099
3 BMR_MKT_PRICE_SEGMENT, 02510099
5 BMR_MKT_PRC_IND(45), 02520099
7 BMR_MP_IND CHAR (1); 02530099
02540099
/**************************************************************/ 02550099
/* INPUT FILE RECORD */ 02560099
/**************************************************************/ 02570099
DCL FDLXREF_PTR POINTER; 02580099
DCL 1 FDLXREF_REC UNALIGNED BASED(FDLXREF_PTR), 02590099
3 FDLXREF_STORE CHAR (5), 02600099
3 FDLXREF_FILL1 CHAR (22), 02610099
3 FDLXREF_MKTCODE CHAR (3), 02620099
3 FDLXREF_FILL2 CHAR (29), 02630099
3 FDLXREF_STATE CHAR (2); 02640099
02650099
/**************************************************************/ 02660099
/* STORE/WEEK USEABILITY INPUT FILE */ 02670099
/**************************************************************/ 02680099
02690099
DCL USE_RECORD CHAR(69) INIT((69)' '); 02700099
DCL USE_PTR POINTER INIT(NULL); 02710099
02720099
DCL 1 USEABILITY_RECORD BASED(USE_PTR) UNALIGNED, 02730099
3 UR_DESC, 02740099
5 UR_REPORT_SUB BINARY FIXED (15), 02750099
5 UR_STORE CHAR(5), 02760099
5 UR_NUM_OF_WKS BINARY FIXED (15), 02770099
3 UR_WEEK_USEABILITY, 02780099
5 UR_USE_INDICATORS(60), 02790099
7 UR_USE_IND CHAR (1); 02800099
02810099
/**************************************************************/ 02820099
/* REPORT SPEC INPUT FILE */ 02830099
/**************************************************************/ 02840099
%INCLUDE SK03PRS1; 02850099
02860099
/**************************************************************/ 02870099
/* BASELINE COMPRESSED DETAIL OUTPUT FILE */ 02880099
/**************************************************************/ 02890099
%INCLUDE SC07CDO2; 02900099
02910099
/**************************************************************/ 02920099
/* TIME AND DATE RECORDS FOR DATA MANAGEMENT */ 02930099
/**************************************************************/ 02940099
%INCLUDE DATETIME; 02950099
02960099
/**************************************************************/ 02970099
/* MAXIMUM COUNTS FOR CONTROLLED TABLE */ 02980099
/* AND VARIABLE RECORD STRUCTURES */ 02990099
/**************************************************************/ 03000099
%INCLUDE MAXCNT; 03010099
03020099
/**************************************************************/ 03030099
/* COMPRESSION ROUTINE WORK FIELDS */ 03040099
/**************************************************************/ 03050099
%INCLUDE SC07PKP2; 03060099
03070099
/**************************************************************/ 03080099
/* TABLES & ARRAYS */ 03090099
/**************************************************************/ 03100099
03110099
/**************************************************************/ 03120099
/* PRODUCT/STUB RELATED TABLES & ARRAYS */ 03130099
/**************************************************************/ 03140099
03140199
DCL MAX_STR_IN_RPT FIXED BIN(31) INIT(20000); 03140299
DCL MAX_ORGS_REAL FIXED BIN(15) INIT(1000); /*TAB2*/ 03140399
/*DCL MAX_DG_NUM FIXED BIN(31) INIT(64000);*/ 03140499
/* BUMPED LIMIT FOR MAX_DG_NUM TO 128000 */
/* BUMPED LIMIT FOR MAX_DG_NUM TO 200000 AAS1 */
DCL MAX_DG_NUM FIXED BIN(31) INIT(200000); 03140499
DCL MAX_PC_CNT FIXED BIN(15) INIT(1300); /* AAS1*/ 05450099
DCL MAX_STRREL FIXED BIN(31) INIT(99999); /* AAS2*/ 05450099
DCL MAX_CELL FIXED BIN(15) INIT(1000); /* AAS2*/ 05450099
DCL DST_CTL_REQ CHAR(1); /* AAS2*/ 03140599
DCL DS2_CTL_REQ CHAR(1); /* TAB9*/ 03140599
DCL DST_DS2_CTL_REQ CHAR(1); /* TAB9*/ 03140599
DCL 1 XSB_CTL, 03140599
3 ALLOC_VERBOSE CHAR(1), 03140699
3 VERBOSE CHAR(1), 03140799
3 REQD CHAR(1), 03140899
3 STR_REQD CHAR(1), 03140999
3 ERR CHAR(1); 03141099
DCL 1 XSB_STR CTL, 03142099
3 BS_TARG CHAR(5), 03143099
3 N_MAX FIXED BIN(15), 03144099
3 N_OCC FIXED BIN(15), 03145099
3 N_NEEDED FIXED BIN(15), 03146099
3 SUB FIXED BIN(15), 03147099
3 A (10000), 03148099
5 PSEUDO CHAR(5), 03149099
5 NEEDED CHAR(1); 03150099
DCL XSP_CTL_REQD CHAR(1); /*AAS1*/ 03160099
DCL XSP_TST_REQD CHAR(1); /*AAS1*/ 03160099
DCL (MAX_STU_OR_STR_CNT, MAX_XSB_STR) FIXED BINARY (31); 03160099
/*DCL (MIN_XSB_STR) FIXED BINARY (31) INIT(200);*/ 03170099
DCL (MIN_XSB_STR) FIXED BINARY (31) INIT(350); 03170099
DCL (XSB_STR_BUFFER) FIXED BINARY (31) INIT(200); 03170099
DCL TAB_REPORT_POS (MAX_STU_CNT) FIXED BINARY (15) CTL 03180099
INIT((MAX_STU_CNT)0); 03190099
DCL TAB_CAT_UN (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03200099
INIT((MAX_WKS_TAP)0); 03210099
DCL TAB_CAT_BU (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03220099
INIT((MAX_WKS_TAP)0); 03230099
DCL TAB_TREND_UN (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03240099
INIT((MAX_WKS_TAP)0); 03250099
DCL TAB_TREND_BU (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03260099
INIT((MAX_WKS_TAP)0); 03270099
DCL TAB_TREND_N (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); 03290099
DCL TAB_TREND_Z (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); /*AAS1*/ 03290099
DCL TAB_CAT_MK_FCT ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03300099
INIT((MAX_WKS_TAP)0); 03310099
DCL TAB_PC_MK_FCT ( MAX_PC_CNT, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03300099
DCL TAB_TREND_MK_FCT (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03320099
DCL TAB_CAT_OA_FCT ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03330099
DCL TAB_TREND_OA_FCT (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03340099
INIT((MAX_DG_NUM* MAX_WKS_TAP)0); 03350099
DCL TAB_CAT_OA_UN ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03360099
DCL TAB_CAT_OA_BU ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03370099
DCL TAB_TREND_OA_UN (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03380099
DCL TAB_TREND_OA_BU (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03390099
DCL TAB_TREND_OA_N (MAX_DG_NUM, MAX_WKS_TAP) FIXED BIN (15) CTL; 03400099
DCL MKTADJ_FCT_CLR ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03410099
INIT(( MAX_WKS_TAP)1); 03420099
DCL TAB_PSEUDO (MAX_XSB_STR) CHAR(5) CTL 03430099
INIT((MAX_XSB_STR)' '); 03440099
DCL TAB_ORG (MAX_XSB_STR) CHAR(3) CTL 03450099
INIT((MAX_XSB_STR)' '); 03460099
DCL TAB_BRAND_POS (MAX_STU_CNT) FIXED BINARY (15) CTL 03470099
INIT((MAX_STU_CNT)0); 03480099
DCL (DO_SKBBLOC) CHAR (1) INIT('Y'); 03490099
DCL TAB_BRAND_KEY (MAX_STU_CNT) CHAR (30) CTL 03500099
INIT((MAX_STU_CNT)(30)' '); 03510099
DCL (HI_DG,HI_DG_RPT(100),DG_IND) FIXED BIN(31); 03520099
DCL TAB_DG (MAX_STU_CNT) FIXED BINARY (31) CTL 03530099
INIT((MAX_STU_CNT)0); 03540099
DCL TAB_ITEM_POS (MAX_STU_CNT) FIXED BINARY (31) CTL; 03550099
DCL TAB_CAUSAL_INDICS(MAX_STU_CNT,MAX_WKS_TAP) CHAR (50) CTL; 03560099
DCL TAB_UNITS (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03570099
DCL TAB_PRICE (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03580099
DCL TAB_LIN_PRICE (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03590099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03600099
DCL TAB_NUM_PRICE (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03610099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03620099
DCL TAB_SPM (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY (15) CTL 03630099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03640099
DCL TAB_TEMP_SPM (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY (15) CTL 03650099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03660099
DCL TAB_DOL (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03670099
DCL TAB_CPN_VALUE (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY (15) CTL 03680099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03690099
DCL TAB_SHELF_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03700099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03710099
DCL TAB_DISPLAY_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03720099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03730099
DCL TAB_RESERVE_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03740099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03750099
DCL TAB_IRC_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03760099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03770099
DCL TAB_NIRC_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03780099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03790099
DCL TAB_SIGNAGE_I (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY(15) CTL 03800099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03810099
DCL TAB_STICKER_I (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY(15) CTL 03820099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03830099
/* AAS4 */ 03830099
DCL TAB_EC1_DATA (MAX_STU_CNT,MAX_WKS_TAP) CHAR (6) CTL 03840099
INIT((MAX_STU_CNT*MAX_WKS_TAP)(6)' '); 03850099
DCL TAB_EC2_INDICS (MAX_STU_CNT,MAX_WKS_TAP) CHAR (16) CTL 03840099
INIT((MAX_STU_CNT*MAX_WKS_TAP)(16)' '); 03850099
DCL TAB_BUY_I (MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 03860099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03870099
DCL TAB_GET_I (MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 03880099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03890099
DCL TAB_NOI_I (MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 03900099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03910099
DCL TAB_REB_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03920099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03930099
03940099
/* 03950099
DCL TAB_STUB_ITEM_POS (MAX_SPG_CNT,MAX_SPU_CNT) FIXED BINARY(31) CTL; 03950099
DCL TAB_STUB_UPC_SPIND(MAX_SPG_CNT,MAX_SPU_CNT) BIN FIXED(15) CTL; 03960099
*/ 03950099
DCL TAB_STUB_ITEM_POS (MAX_SPU_CNT) FIXED BINARY(31) CTL; /*AAS1*/ 03950099
DCL TAB_STUB_UPC_SPIND(MAX_SPU_CNT) FIXED BINARY(15) CTL; 03960099
DCL 1 TAB_STUB_DEAL_GRP (MAX_SPG_CNT) CTL, 03950099
5 ITEM_START FIXED BINARY(31), 03950099
5 ITEM_END FIXED BINARY(31); 03950099
/*DCL NUPC(MAX_SPG_CNT) BINARY FIXED (15) AUTO;*/ 03970099
DCL XREF(MAX_SPU_CNT) BINARY FIXED (15) AUTO; 03980099
DCL (XREF_HI) BINARY FIXED (15) INIT(MAX_SPU_CNT);
DCL TAB_PC_UN (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL /*AAS1-B*/ 03220099
INIT((MAX_WKS_TAP)0); 03230099
DCL TAB_PC_BU (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03220099
INIT((MAX_WKS_TAP)0); 03230099
DCL TAB_PC_N (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); 03290099
DCL TAB_PC_UN_GT_BU (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); 03290099
03990099
/*080197*/ 04000099
/***************************/ 04010099
/* DBDESC FILE TABLE */ 04020099
/***************************/ 04030099
04040099
DCL 1 DBDESC_ARRAY_TABLE (MAX_UPC_CNT), 04050099
5 DAT_RPT_SUB BINARY FIXED (15) INIT (0), 04050199
5 DAT_BRAND_POS BINARY FIXED (15) INIT (0), 04050299
5 DAT_ITEM_POS BINARY FIXED (31) INIT (0), 04050399
5 DAT_ITEM_DESC CHAR (30) INIT (' '), 04050499
5 DAT_MULT_PACK PIC '999' INIT (0); 04050599
04050699
DCL DAT_CNT BINARY FIXED (15) INIT(0); 04050799
04050899
DCL FIRST_TIME CHAR(1) STATIC INIT('Y'); 04050999
04051099
/*080197*/ 04051199
04051299
/***************************/ 04051399
/* UPC FEATURE TABLE */ 04051499
/***************************/ 04051599
04051699
DCL UFAT(MAX_STU_CNT) CHAR(1) CTL; 04051799
DCL UFT(MAX_STU_CNT,MAX_WKS_TAP,MAX_FET_CNT) BIN FIXED (15) CTL; 04051899
04051999
/***********************/ 04052099
/* UPC DISPLAY TABLE */ 04053099
/***********************/ 04054099
04055099
DCL UDAT(MAX_STU_CNT) CHAR(1) CTL; 04056099
DCL ( MVC_FET, MVC_DSP, 04057099
MVC_MWC_CND_2,MVC_MWC_4,MVC_MWT_6, 04058099
MVC_MWT_2,MVC_MWT_4 ,MVC_MWT_8, MVC_MWT_16 , MVC_MWT_50 ) 04059099
BINARY FIXED(31); 04060099
DCL UDT(MAX_STU_CNT,MAX_WKS_TAP,MAX_DSP_CNT) BIN FIXED (15) CTL; 04070099
04080099
DCL (X#) BINARY FIXED (15) INIT(0); 04090099
DCL (HI_U,HI_S,HI_REAL#) BINARY FIXED (15) INIT(0); 04100099
04110099
/***************************************/ 04120099
/* UPC & FACT RELATED TABLES & ARRAYS */ 04130099
/***************************************/ 04140099
04150099
DCL TAB_BASE(MAX_STU_CNT,MAX_WKS_TAP) DEC FLOAT (16) CTL 04160099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04170099
DCL TAB_RPR(MAX_STU_CNT,MAX_WKS_TAP) DEC FLOAT (16) CTL 04180099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04190099
DCL MAX_PDL_CNT BINARY FIXED (15) INIT (5); 04200099
DCL MAX_OOS_CNT BINARY FIXED (15) INIT (3); 04210099
DCL MAX_SPM_CNT BINARY FIXED (15) INIT (12); 04220099
DCL TAB_PDB(MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 04230099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04240099
DCL TAB_PDL(MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 04250099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04260099
DCL TAB_OOS(MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 04270099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04280099
DCL BASE_IND(MAX_STU_CNT) BINARY FIXED (15) CTL 04290099
INIT((MAX_STU_CNT)0); 04300099
04310099
/****************************************/ 04320099
/* MILLER CUSTOM PRICE SEGMENT ARRAYS */ 04330099
/****************************************/ 04340099
04350099
DCL TAB_CPS_ITEM_POS (MAX_UNU_CNT) FIXED BINARY (31) CTL 04360099
INIT((MAX_UNU_CNT)0); 04370099
DCL TAB_CPS_MKT_INDS (MAX_UNU_CNT,45) CHAR (1) CTL 04380099
INIT((MAX_UNU_CNT*45)(' ')); 04390099
DCL STORES_CTR BINARY FIXED (31) INIT(0); 04400099
DCL CHARVAL_CTR BINARY FIXED (31) INIT(0); 04410099
DCL 1 ORG_REAL CTL, 04420099
3 BS_TARG CHAR(3), 04430099
3 N_MAX FIXED BIN(15), 04440099
3 N_OCC FIXED BIN(15), 04450099
3 SUB FIXED BIN(15), 04460099
3 A (MAX_ORGS_REAL), 04470099
5 ORG CHAR(3), 04480099
5 FLAG CHAR(1); 04490099
DCL (STR_USBL_MAX,STR_USBL_N,STR_USBL_SUB) FIXED BIN(31); 04500099
DCL (STR_USBL_SUB_M) FIXED BIN(31); /*AXA2*/ 04500099
DCL 1 STR_USBL (MAX_STR_IN_RPT) CTL, 04510099
3 PSEUDO CHAR(5), 04520099
3 USBL (MAX_WKS_TAP) CHAR(1); 04530099
DCL TAB_STORES(90000) CHAR(5); 04540099
DCL TAB_MKTNO(90000) BINARY FIXED (15); 04550099
DCL IDMKT BINARY FIXED (31) INIT(1); 04560099
DCL IDUPC BINARY FIXED (31) INIT(1); 04570099
DCL MKT_POS BINARY FIXED (31) INIT(0); 04580099
DCL UPC_POS BINARY FIXED (31) INIT(0); 04590099
04600099
/*********************************************/ 04610099
/* CONDITION RULES RELATED TABLES & ARRAYS */ 04620099
/*********************************************/ 04630099
04640099
DCL TAB_FET_DEF(MAX_CND_CNT,MAX_FET_CNT) BINARY FIXED (15) AUTO; 04650099
DCL TAB_DSP_DEF(MAX_CND_CNT,MAX_DSP_CNT) BINARY FIXED (15) AUTO; 04660099
DCL TAB_FET_TYPE(MAX_CND_CNT,MAX_FET_CNT) BINARY FIXED (15) AUTO; 04670099
DCL TAB_DSP_TYPE(MAX_CND_CNT,MAX_DSP_CNT) BINARY FIXED (15) AUTO; 04680099
DCL TAB_PDL_DEF(MAX_CND_CNT,MAX_PDL_CNT) BINARY FIXED (15) AUTO; 04690099
DCL TAB_O

karunkallore · Beginner Joined: 11 Dec 2004 Posts: 103 Topics: 39

The SOURCE CODE was not posted correctly in the previous post i am reposting it .

SOURCE CODE
---------------------

/* DATA SET SKBBLO1A AT LEVEL 219 AS OF 11/07/00 */00010099
/* (STRINGRANGE,SUBSCRIPTRANGE): /* NOT IN PRODUCTION!!!!! */00020099
/* */00020199
/*01/01/98 START CBSI Y2K */08/17/98
SKBBLO1A:PROCEDURE OPTIONS(MAIN REENTRANT) REORDER;
/**************************************************************/ 01778899
/* RUNTIME PARAMETER FOR ALLOCATING SPACE ABOVE 16M LINE */ 01778999
/* ========================================================== */ 01779099
/* NOTE: SUPERCEDED BY INTRO OF LEBIGNNN MODULE ON 4-30-97 */ 01779199
/**************************************************************/ 01779299
01779399
DCL PLIXOPT CHAR(140) VARYING STATIC EXTERNAL 01779499
INIT('HEAP(164M,16M,ANY,FREE)'); 01779599
01779699
/**************************************************************/ 01779799
/**************************************************************/ 01779899
/* FILE DESCRIPTIONS */ 01779999
/**************************************************************/ 01780099
/**************************************************************/ 01780199
01780299
DCL DTLIN FILE INPUT RECORD; 01780399
DCL (DOA_RPT(100),DOA_ANY) CHAR(1); 01781099
DCL (CSLREAL_RPT(100),CSLREAL_ANY) CHAR(1); 01790099
DCL CSLREAL FILE RECORD; 01800099
DCL (CSLREAL_DYN_ALLOC) CHAR(1) INIT('0'); 01810099
DCL CSLREAL_REC_CHAR CHAR(80); 01820099
DCL CSLREAL_DD CHAR(8) INIT('CSLREAL '); 01830099
DCL CSLREAL_DSN CHAR(44) INIT('PPGB.PARMLIB'); 01840099
DCL CSLREAL_MBR CHAR(8) INIT('CSLREAL'); 01850099
DCL CSLREAL_PTR POINTER; 01860099
DCL 1 CSLREAL_REC UNAL BASED(CSLREAL_PTR), 01870099
3 ORG CHAR(3), 01880099
3 FLAG CHAR(1), 01890099
3 FILLER CHAR(76); 01900099
DCL MKTADJ FILE RECORD; 01910099
DCL MKTADJ_REC_CHAR CHAR(2000); 01920099
DCL MKTADJ_PTR POINTER; 01930099
DCL 1 MKTADJ_REC UNAL BASED(MKTADJ_PTR), 01940099
3 RPT_SUB FIXED BIN(15), 01950099
3 MKT_SUB FIXED BIN(15), 01960099
3 DG_NUM FIXED BIN(31), 01970099
3 #W FIXED BIN(15), 01980099
3 A (60 REFER(MKTADJ_REC.#W)), 01990099
5 UN FLOAT DEC(16), 02000099
5 BU FLOAT DEC(16), 02010099
5 N FIXED BIN(15), 02020099
5 Z FIXED BIN(15); /*AAS1*/ 02020099
/* 5 UN PIC 'ZZZZZZ9.V999', */ 02030099
/* 5 BU PIC 'ZZZZZZ9.V999', */ 02040099
/* 5 N PIC 'ZZZ9'; */ 02050099
02060099
DCL STRREL FILE RECORD; /*AAS2*/ 02060099
DCL STRREL_RECORD CHAR(115); 02060099
DCL STR_REL_PTR POINTER; 02060099
DCL 1 STRREL_DET_RECORD BASED(STR_REL_PTR), 02060099
3 STRREL_CELL_ID CHAR (5), 02060099
3 STRREL_CELL_DESC CHAR (50), 02060099
3 STRREL_PSEUDO CHAR (5), 02060099
3 STRREL_FILLER1 CHAR (55); /*AAS2*/ 02060099
02060099
DCL DEALMAP FILE INPUT RECORD; 02060099
DCL DBDESC FILE INPUT RECORD; 02070099
DCL BRDPRC FILE INPUT RECORD; 02080099
DCL FDLXREF FILE INPUT RECORD; 02081099
DCL STRUSE FILE INPUT RECORD; 02082099
DCL RPTSPEC FILE UPDATE RECORD KEYED ENV(VSAM); 02083099
DCL DTLOUT FILE OUTPUT RECORD; 02084099
DCL SYSPRINT FILE OUTPUT; 02085099
02086099
/**************************************************************/ 02087099
/* PL/I BUILTIN FUNCTIONS */ 02088099
/**************************************************************/ 02089099
02090099
%INCLUDE BUILTINS; 02100099
%INCLUDE SKBDYNXP; 02110099
DCL (PLISRTA) BUILTIN; 02120099
DCL (PLISRTB) BUILTIN; /*AAS2*/ 02120099
DCL SORT_RC FIXED BIN(31); 02130099
DCL I01_ID CHAR(60); 02140099
02150099
/**************************************************************/ 02160099
/* BASELINE COMPRESSED DETAIL INPUT FILE */ 02170099
/**************************************************************/ 02180099
%INCLUDE SC07CDI2; 02190099
02200099
/**************************************************************/ 02210099
/* BASELINE INPUT RECORD WORK AREA */ 02220099
/**************************************************************/ 02230099
%INCLUDE SC07WDA2; 02240099
02250099
/**************************************************************/ 02260099
/* BASELINE COMPRESSION RECORD WORK AREA */ 02270099
/**************************************************************/ 02280099
%INCLUDE SC07WCA2; 02290099
02300099
/**************************************************************/ 02310099
/* DEAL MAP INPUT FILE */ 02320099
/**************************************************************/ 02330099
%INCLUDE SK25FDS2; 02340099
02350099
/**************************************************************/ 02360099
/* DBDESC UNLOAD UPC/BRAND INPUT FILE */ 02370099
/**************************************************************/ 02380099
%INCLUDE SC07DBD1; 02390099
02400099
/**************************************************************/ 02410099
/* BRAND/MARKET MILLER PRICE SEGMENT INPUT FILE */ 02420099
/**************************************************************/ 02430099
02440099
DCL BRD_MKT_RECORD CHAR(85) INIT((85)' '); 02450099
DCL BMR_PTR POINTER INIT(NULL); 02460099
02470099
DCL 1 BRD_MKT_REC BASED(BMR_PTR) UNALIGNED, 02480099
3 BMR_BRAND_DESC CHAR (30), 02490099
3 BMR_BRAND_ID CHAR(10), 02500099
3 BMR_MKT_PRICE_SEGMENT, 02510099
5 BMR_MKT_PRC_IND(45), 02520099
7 BMR_MP_IND CHAR (1); 02530099
02540099
/**************************************************************/ 02550099
/* INPUT FILE RECORD */ 02560099
/**************************************************************/ 02570099
DCL FDLXREF_PTR POINTER; 02580099
DCL 1 FDLXREF_REC UNALIGNED BASED(FDLXREF_PTR), 02590099
3 FDLXREF_STORE CHAR (5), 02600099
3 FDLXREF_FILL1 CHAR (22), 02610099
3 FDLXREF_MKTCODE CHAR (3), 02620099
3 FDLXREF_FILL2 CHAR (29), 02630099
3 FDLXREF_STATE CHAR (2); 02640099
02650099
/**************************************************************/ 02660099
/* STORE/WEEK USEABILITY INPUT FILE */ 02670099
/**************************************************************/ 02680099
02690099
DCL USE_RECORD CHAR(69) INIT((69)' '); 02700099
DCL USE_PTR POINTER INIT(NULL); 02710099
02720099
DCL 1 USEABILITY_RECORD BASED(USE_PTR) UNALIGNED, 02730099
3 UR_DESC, 02740099
5 UR_REPORT_SUB BINARY FIXED (15), 02750099
5 UR_STORE CHAR(5), 02760099
5 UR_NUM_OF_WKS BINARY FIXED (15), 02770099
3 UR_WEEK_USEABILITY, 02780099
5 UR_USE_INDICATORS(60), 02790099
7 UR_USE_IND CHAR (1); 02800099
02810099
/**************************************************************/ 02820099
/* REPORT SPEC INPUT FILE */ 02830099
/**************************************************************/ 02840099
%INCLUDE SK03PRS1; 02850099
02860099
/**************************************************************/ 02870099
/* BASELINE COMPRESSED DETAIL OUTPUT FILE */ 02880099
/**************************************************************/ 02890099
%INCLUDE SC07CDO2; 02900099
02910099
/**************************************************************/ 02920099
/* TIME AND DATE RECORDS FOR DATA MANAGEMENT */ 02930099
/**************************************************************/ 02940099
%INCLUDE DATETIME; 02950099
02960099
/**************************************************************/ 02970099
/* MAXIMUM COUNTS FOR CONTROLLED TABLE */ 02980099
/* AND VARIABLE RECORD STRUCTURES */ 02990099
/**************************************************************/ 03000099
%INCLUDE MAXCNT; 03010099
03020099
/**************************************************************/ 03030099
/* COMPRESSION ROUTINE WORK FIELDS */ 03040099
/**************************************************************/ 03050099
%INCLUDE SC07PKP2; 03060099
03070099
/**************************************************************/ 03080099
/* TABLES & ARRAYS */ 03090099
/**************************************************************/ 03100099
03110099
/**************************************************************/ 03120099
/* PRODUCT/STUB RELATED TABLES & ARRAYS */ 03130099
/**************************************************************/ 03140099
03140199
DCL MAX_STR_IN_RPT FIXED BIN(31) INIT(20000); 03140299
DCL MAX_ORGS_REAL FIXED BIN(15) INIT(1000); /*TAB2*/ 03140399
/*DCL MAX_DG_NUM FIXED BIN(31) INIT(64000);*/ 03140499
/* BUMPED LIMIT FOR MAX_DG_NUM TO 128000 */
/* BUMPED LIMIT FOR MAX_DG_NUM TO 200000 AAS1 */
DCL MAX_DG_NUM FIXED BIN(31) INIT(200000); 03140499
DCL MAX_PC_CNT FIXED BIN(15) INIT(1300); /* AAS1*/ 05450099
DCL MAX_STRREL FIXED BIN(31) INIT(99999); /* AAS2*/ 05450099
DCL MAX_CELL FIXED BIN(15) INIT(1000); /* AAS2*/ 05450099
DCL DST_CTL_REQ CHAR(1); /* AAS2*/ 03140599
DCL DS2_CTL_REQ CHAR(1); /* TAB9*/ 03140599
DCL DST_DS2_CTL_REQ CHAR(1); /* TAB9*/ 03140599
DCL 1 XSB_CTL, 03140599
3 ALLOC_VERBOSE CHAR(1), 03140699
3 VERBOSE CHAR(1), 03140799
3 REQD CHAR(1), 03140899
3 STR_REQD CHAR(1), 03140999
3 ERR CHAR(1); 03141099
DCL 1 XSB_STR CTL, 03142099
3 BS_TARG CHAR(5), 03143099
3 N_MAX FIXED BIN(15), 03144099
3 N_OCC FIXED BIN(15), 03145099
3 N_NEEDED FIXED BIN(15), 03146099
3 SUB FIXED BIN(15), 03147099
3 A (10000), 03148099
5 PSEUDO CHAR(5), 03149099
5 NEEDED CHAR(1); 03150099
DCL XSP_CTL_REQD CHAR(1); /*AAS1*/ 03160099
DCL XSP_TST_REQD CHAR(1); /*AAS1*/ 03160099
DCL (MAX_STU_OR_STR_CNT, MAX_XSB_STR) FIXED BINARY (31); 03160099
/*DCL (MIN_XSB_STR) FIXED BINARY (31) INIT(200);*/ 03170099
DCL (MIN_XSB_STR) FIXED BINARY (31) INIT(350); 03170099
DCL (XSB_STR_BUFFER) FIXED BINARY (31) INIT(200); 03170099
DCL TAB_REPORT_POS (MAX_STU_CNT) FIXED BINARY (15) CTL 03180099
INIT((MAX_STU_CNT)0); 03190099
DCL TAB_CAT_UN (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03200099
INIT((MAX_WKS_TAP)0); 03210099
DCL TAB_CAT_BU (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03220099
INIT((MAX_WKS_TAP)0); 03230099
DCL TAB_TREND_UN (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03240099
INIT((MAX_WKS_TAP)0); 03250099
DCL TAB_TREND_BU (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03260099
INIT((MAX_WKS_TAP)0); 03270099
DCL TAB_TREND_N (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); 03290099
DCL TAB_TREND_Z (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); /*AAS1*/ 03290099
DCL TAB_CAT_MK_FCT ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03300099
INIT((MAX_WKS_TAP)0); 03310099
DCL TAB_PC_MK_FCT ( MAX_PC_CNT, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03300099
DCL TAB_TREND_MK_FCT (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03320099
DCL TAB_CAT_OA_FCT ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03330099
DCL TAB_TREND_OA_FCT (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03340099
INIT((MAX_DG_NUM* MAX_WKS_TAP)0); 03350099
DCL TAB_CAT_OA_UN ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03360099
DCL TAB_CAT_OA_BU ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03370099
DCL TAB_TREND_OA_UN (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03380099
DCL TAB_TREND_OA_BU (MAX_DG_NUM, MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03390099
DCL TAB_TREND_OA_N (MAX_DG_NUM, MAX_WKS_TAP) FIXED BIN (15) CTL; 03400099
DCL MKTADJ_FCT_CLR ( MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03410099
INIT(( MAX_WKS_TAP)1); 03420099
DCL TAB_PSEUDO (MAX_XSB_STR) CHAR(5) CTL 03430099
INIT((MAX_XSB_STR)' '); 03440099
DCL TAB_ORG (MAX_XSB_STR) CHAR(3) CTL 03450099
INIT((MAX_XSB_STR)' '); 03460099
DCL TAB_BRAND_POS (MAX_STU_CNT) FIXED BINARY (15) CTL 03470099
INIT((MAX_STU_CNT)0); 03480099
DCL (DO_SKBBLOC) CHAR (1) INIT('Y'); 03490099
DCL TAB_BRAND_KEY (MAX_STU_CNT) CHAR (30) CTL 03500099
INIT((MAX_STU_CNT)(30)' '); 03510099
DCL (HI_DG,HI_DG_RPT(100),DG_IND) FIXED BIN(31); 03520099
DCL TAB_DG (MAX_STU_CNT) FIXED BINARY (31) CTL 03530099
INIT((MAX_STU_CNT)0); 03540099
DCL TAB_ITEM_POS (MAX_STU_CNT) FIXED BINARY (31) CTL; 03550099
DCL TAB_CAUSAL_INDICS(MAX_STU_CNT,MAX_WKS_TAP) CHAR (50) CTL; 03560099
DCL TAB_UNITS (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03570099
DCL TAB_PRICE (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03580099
DCL TAB_LIN_PRICE (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03590099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03600099
DCL TAB_NUM_PRICE (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03610099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03620099
DCL TAB_SPM (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY (15) CTL 03630099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03640099
DCL TAB_TEMP_SPM (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY (15) CTL 03650099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03660099
DCL TAB_DOL (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL; 03670099
DCL TAB_CPN_VALUE (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY (15) CTL 03680099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03690099
DCL TAB_SHELF_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03700099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03710099
DCL TAB_DISPLAY_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03720099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03730099
DCL TAB_RESERVE_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03740099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03750099
DCL TAB_IRC_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03760099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03770099
DCL TAB_NIRC_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03780099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03790099
DCL TAB_SIGNAGE_I (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY(15) CTL 03800099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03810099
DCL TAB_STICKER_I (MAX_STU_CNT,MAX_WKS_TAP) FIXED BINARY(15) CTL 03820099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03830099
/* AAS4 */ 03830099
DCL TAB_EC1_DATA (MAX_STU_CNT,MAX_WKS_TAP) CHAR (6) CTL 03840099
INIT((MAX_STU_CNT*MAX_WKS_TAP)(6)' '); 03850099
DCL TAB_EC2_INDICS (MAX_STU_CNT,MAX_WKS_TAP) CHAR (16) CTL 03840099
INIT((MAX_STU_CNT*MAX_WKS_TAP)(16)' '); 03850099
DCL TAB_BUY_I (MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 03860099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03870099
DCL TAB_GET_I (MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 03880099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03890099
DCL TAB_NOI_I (MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 03900099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03910099
DCL TAB_REB_I (MAX_STU_CNT,MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03920099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 03930099
03940099
/* 03950099
DCL TAB_STUB_ITEM_POS (MAX_SPG_CNT,MAX_SPU_CNT) FIXED BINARY(31) CTL; 03950099
DCL TAB_STUB_UPC_SPIND(MAX_SPG_CNT,MAX_SPU_CNT) BIN FIXED(15) CTL; 03960099
*/ 03950099
DCL TAB_STUB_ITEM_POS (MAX_SPU_CNT) FIXED BINARY(31) CTL; /*AAS1*/ 03950099
DCL TAB_STUB_UPC_SPIND(MAX_SPU_CNT) FIXED BINARY(15) CTL; 03960099
DCL 1 TAB_STUB_DEAL_GRP (MAX_SPG_CNT) CTL, 03950099
5 ITEM_START FIXED BINARY(31), 03950099
5 ITEM_END FIXED BINARY(31); 03950099
/*DCL NUPC(MAX_SPG_CNT) BINARY FIXED (15) AUTO;*/ 03970099
DCL XREF(MAX_SPU_CNT) BINARY FIXED (15) AUTO; 03980099
DCL (XREF_HI) BINARY FIXED (15) INIT(MAX_SPU_CNT);
DCL TAB_PC_UN (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL /*AAS1-B*/ 03220099
INIT((MAX_WKS_TAP)0); 03230099
DCL TAB_PC_BU (MAX_WKS_TAP) FLOAT DECIMAL (16) CTL 03220099
INIT((MAX_WKS_TAP)0); 03230099
DCL TAB_PC_N (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); 03290099
DCL TAB_PC_UN_GT_BU (MAX_WKS_TAP) FIXED BIN (15) CTL 03280099
INIT((MAX_WKS_TAP)0); 03290099
03990099
/*080197*/ 04000099
/***************************/ 04010099
/* DBDESC FILE TABLE */ 04020099
/***************************/ 04030099
04040099
DCL 1 DBDESC_ARRAY_TABLE (MAX_UPC_CNT), 04050099
5 DAT_RPT_SUB BINARY FIXED (15) INIT (0), 04050199
5 DAT_BRAND_POS BINARY FIXED (15) INIT (0), 04050299
5 DAT_ITEM_POS BINARY FIXED (31) INIT (0), 04050399
5 DAT_ITEM_DESC CHAR (30) INIT (' '), 04050499
5 DAT_MULT_PACK PIC '999' INIT (0); 04050599
04050699
DCL DAT_CNT BINARY FIXED (15) INIT(0); 04050799
04050899
DCL FIRST_TIME CHAR(1) STATIC INIT('Y'); 04050999
04051099
/*080197*/ 04051199
04051299
/***************************/ 04051399
/* UPC FEATURE TABLE */ 04051499
/***************************/ 04051599
04051699
DCL UFAT(MAX_STU_CNT) CHAR(1) CTL; 04051799
DCL UFT(MAX_STU_CNT,MAX_WKS_TAP,MAX_FET_CNT) BIN FIXED (15) CTL; 04051899
04051999
/***********************/ 04052099
/* UPC DISPLAY TABLE */ 04053099
/***********************/ 04054099
04055099
DCL UDAT(MAX_STU_CNT) CHAR(1) CTL; 04056099
DCL ( MVC_FET, MVC_DSP, 04057099
MVC_MWC_CND_2,MVC_MWC_4,MVC_MWT_6, 04058099
MVC_MWT_2,MVC_MWT_4 ,MVC_MWT_8, MVC_MWT_16 , MVC_MWT_50 ) 04059099
BINARY FIXED(31); 04060099
DCL UDT(MAX_STU_CNT,MAX_WKS_TAP,MAX_DSP_CNT) BIN FIXED (15) CTL; 04070099
04080099
DCL (X#) BINARY FIXED (15) INIT(0); 04090099
DCL (HI_U,HI_S,HI_REAL#) BINARY FIXED (15) INIT(0); 04100099
04110099
/***************************************/ 04120099
/* UPC & FACT RELATED TABLES & ARRAYS */ 04130099
/***************************************/ 04140099
04150099
DCL TAB_BASE(MAX_STU_CNT,MAX_WKS_TAP) DEC FLOAT (16) CTL 04160099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04170099
DCL TAB_RPR(MAX_STU_CNT,MAX_WKS_TAP) DEC FLOAT (16) CTL 04180099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04190099
DCL MAX_PDL_CNT BINARY FIXED (15) INIT (5); 04200099
DCL MAX_OOS_CNT BINARY FIXED (15) INIT (3); 04210099
DCL MAX_SPM_CNT BINARY FIXED (15) INIT (12); 04220099
DCL TAB_PDB(MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 04230099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04240099
DCL TAB_PDL(MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 04250099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04260099
DCL TAB_OOS(MAX_STU_CNT,MAX_WKS_TAP) BINARY FIXED (15) CTL 04270099
INIT((MAX_STU_CNT*MAX_WKS_TAP)0); 04280099
DCL BASE_IND(MAX_STU_CNT) BINARY FIXED (15) CTL 04290099
INIT((MAX_STU_CNT)0); 04300099
04310099
/****************************************/ 04320099
/* MILLER CUSTOM PRICE SEGMENT ARRAYS */ 04330099
/****************************************/ 04340099
04350099
DCL TAB_CPS_ITEM_POS (MAX_UNU_CNT) FIXED BINARY (31) CTL 04360099
INIT((MAX_UNU_CNT)0); 04370099
DCL TAB_CPS_MKT_INDS (MAX_UNU_CNT,45) CHAR (1) CTL 04380099
INIT((MAX_UNU_CNT*45)(' ')); 04390099
DCL STORES_CTR BINARY FIXED (31) INIT(0); 04400099
DCL CHARVAL_CTR BINARY FIXED (31) INIT(0); 04410099
DCL 1 ORG_REAL CTL, 04420099
3 BS_TARG CHAR(3), 04430099
3 N_MAX FIXED BIN(15), 04440099
3 N_OCC FIXED BIN(15), 04450099
3 SUB FIXED BIN(15), 04460099
3 A (MAX_ORGS_REAL), 04470099
5 ORG CHAR(3), 04480099
5 FLAG CHAR(1); 04490099
DCL (STR_USBL_MAX,STR_USBL_N,STR_USBL_SUB) FIXED BIN(31); 04500099
DCL (STR_USBL_SUB_M) FIXED BIN(31); /*AXA2*/ 04500099
DCL 1 STR_USBL (MAX_STR_IN_RPT) CTL, 04510099
3 PSEUDO CHAR(5), 04520099
3 USBL (MAX_WKS_TAP) CHAR(1); 04530099
DCL TAB_STORES(90000) CHAR(5); 04540099
DCL TAB_MKTNO(90000) BINARY FIXED (15); 04550099
DCL IDMKT BINARY FIXED (31) INIT(1); 04560099
DCL IDUPC BINARY FIXED (31) INIT(1); 04570099
DCL MKT_POS BINARY FIXED (31) INIT(0); 04580099
DCL UPC_POS BINARY FIXED (31) INIT(0); 04590099
04600099
/*********************************************/ 04610099
/* CONDITION RULES RELATED TABLES & ARRAYS */ 04620099
/*********************************************/ 04630099
04640099
DCL TAB_FET_DEF(MAX_CND_CNT,MAX_FET_CNT) BINARY FIXED (15) AUTO; 04650099
DCL TAB_DSP_DEF(MAX_CND_CNT,MAX_DSP_CNT) BINARY FIXED (15) AUTO; 04660099
DCL TAB_FET_TYPE(MAX_CND_CNT,MAX_FET_CNT) BINARY FIXED (15) AUTO; 04670099
DCL TAB_DSP_TYPE(MAX_CND_CNT,MAX_DSP_CNT) BINARY FIXED (15) AUTO; 04680099
DCL TAB_PDL_DEF(MAX_CND_CNT,MAX_PDL_CNT) BINARY FIXED (15) AUTO; 04690099
DCL TAB_OOS_DEF(MAX_CND_CNT,MAX_OOS_CNT) BINARY FIXED (15) AUTO; 04700099
DCL TAB_OOS_FROM_VALUE(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04710099
DCL TAB_OOS_TO_VALUE(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04720099
DCL TAB_BOGO_BUY_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04730099
DCL TAB_BOGO_GET_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04740099
DCL TAB_BDWN_FROM_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04750099
DCL TAB_BDWN_TO_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04760099
DCL TAB_MOFF_FROM_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04770099
DCL TAB_MOFF_TO_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04780099
DCL TAB_NPRC_FROM_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04790099
DCL TAB_NPRC_TO_VAL (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04800099
DCL TAB_SPM_DEF(MAX_CND_CNT,MAX_SPM_CNT) BINARY FIXED (15) AUTO; 04810099
DCL TAB_BUY_VALS (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04820099
DCL TAB_GET_VALS (MAX_CND_CNT) BINARY FIXED (15) AUTO; 04830099
DCL NFET(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04840099
DCL NFET_SCR(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04850099
DCL NDSP(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04860099
DCL NDSP_SCR(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04870099
DCL NPDL(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04880099
DCL NOOS(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04890099
DCL NSPM(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04900099
DCL SCORE(MAX_CND_CNT) BINARY FIXED (15) AUTO; 04910099
DCL INFLAGS(MAX_WKS_CNT,MAX_CND_CNT) BINARY FIXED (15) AUTO; 04920099
04930099
DCL RWU (MAX_WKS_TAP) DEC FLOAT (16) CTL; 04940099
DCL P (MAX_WKS_TAP) DEC FLOAT (16) CTL; 04950099
DCL RPR (MAX_WKS_TAP) DEC FLOAT (16) CTL; 04960099
DCL RPR_BASE (MAX_WKS_TAP) DEC FLOAT (16) CTL; 04970099
DCL PBSU (MAX_WKS_TAP) DEC FLOAT (16) CTL; 04980099
DCL BASE1(MAX_WKS_TAP) DEC FLOAT (16) CTL; 04990099
05000099
DCL VALUE(MAX_WKS_TAP) BINARY FIXED (15) CTL; 05010099
DCL BUYV (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05020099
DCL GETV (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05030099
DCL BDWN (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05040099
DCL MOFF (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05050099
DCL NPRC (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05060099
DCL PDL (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05070099
DCL PDB (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05080099
DCL OOS (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05090099
DCL SPM (MAX_WKS_TAP) BINARY FIXED (15) CTL; 05100099
DCL FET (MAX_WKS_TAP,MAX_FET_CNT) BINARY FIXED (15) CTL; 05110099
DCL DSP (MAX_WKS_TAP,MAX_DSP_CNT) BINARY FIXED (15) CTL; 05120099
05130099
/* DCL NUM_COLLAPSED_WEEKS(MAX_WKS_TAP) BINARY FIXED (15) CTL; */05140099
DCL HOLD_CAUSAL_INDICS(MAX_WKS_TAP) CHAR (50) CTL; 05150099
DCL OUTFLAGS(MAX_WKS_CNT) BINARY FIXED (31) AUTO; 05160099
05170099
DCL 1 WORK_CAUSAL_INDICS, 05180099
3 WCI_DISPLAY_DATA, 05190099
5 WCI_NUM_DISP PIC '9', 05200099
5 WCI_POP_INDIC CHAR (1), 05210099
5 WCI_DISPLAY_LOC(6), 05220099
7 WCI_DISP CHAR (1), 05230099
7 WCI_DISP_CN_NUM PIC '999', 05240099
7 WCI_KIND_OF_DIS PIC '9'; 05250099
05260099
/************************************************************/ 05270099
/* VARIABLE DECLARATIONS */ 05280099
/************************************************************/ 05290099
05300099
DCL NUM_COLLAPSED_ITEMS BINARY FIXED (15) INIT(0); 05310099
DCL NUM_OF_DISPLAYS BINARY FIXED (15) INIT(0) STATIC; 05320099
/*DCL STUB_CTR BINARY FIXED (15) INIT(0); */ 05330099
DCL STUB_CTR BINARY FIXED (31) INIT(0); 05330099
DCL DISP_SUB BINARY FIXED (15) INIT(0); 05340099
DCL MOVE_SUB BINARY FIXED (15) INIT(0); 05350099
DCL WEEK_SUB BINARY FIXED (15) INIT(0); 05360099
DCL VALID_WEEKS BINARY FIXED (15) INIT(0); 05370099
DCL MAX_WKS_UPD BINARY FIXED (15) INIT(0); 05380099
DCL FIRST_RPT_WK BINARY FIXED (15) INIT(0); 05390099
DCL LAST_RPT_WK BINARY FIXED (15) INIT(0); 05400099
DCL MAX_WKS_TAP BINARY FIXED (15) INIT(0); 05410099
DCL ALLOC_VAR BINARY FIXED (31) INIT(0); /* RZN2 */ 05410099
DCL (PASS_INDIC) CHAR(1); 05420099
DCL (PASS_LIT) CHAR(12); 05430099
DCL (XSB_MARKET) CHAR(5); 05440099
DCL (XSB_SPEC ) CHAR(9); 05450099
DCL PCDG_REC_COUNT PIC '99999999' INIT(0); /*AAS1-B*/ 05450099
DCL PC# BINARY FIXED (15) INIT(0); 05450099
DCL HA_RPT_PC BINARY FIXED (15) INIT(0); 05450099
DCL MAX_PC BINARY FIXED (15) INIT(0); 05450099
DCL 1 HA_PC_DG_TABLE (MAX_PC_CNT), 05450099
5 HA_PC PIC '9999', 05460099
5 HA_FIRST_DG BINARY FIXED (31), 05460099
5 HA_LAST_DG BINARY FIXED (31), 05460099
5 HA_POS_SUB BINARY FIXED (15), 05460099
5 HA_NEG_SUB BINARY FIXED (15); 05460099
DCL START# BINARY FIXED (31) INIT(1); 05450099
DCL END# BINARY FIXED (31) INIT(0); /*AAS1-E*/ 05450099
/* BEGIN AAS2 CHANGES*/ 05460099
05460099
DCL UPC_STR_N FIXED BIN(31); 04500099
DCL 1 SORT_OUT_REC CHAR(9425) VARYING; 05460099
DCL SOR_PTR POINTER INIT(NULL); 05460099
DCL SOR_LENGTH FIXED BIN(15) BASED(SOR_PTR); 05460099
05460099
DCL 1 STRREL_TBL (MAX_STRREL), 05460099
5 SRT_CELL_ID CHAR(5) INIT( (MAX_STRREL)(5)' ' ), 05460099
5 SRT_XREF BINARY FIXED (31); 05460099
05460099
DCL 1 CELL_ID_TBL(MAX_CELL), 05460099
5 CIT_CELL_ID CHAR(5), 05460099
5 CIT_NUM_STRS BINARY FIXED(15); 05460099
05460099
DCL UNLD_REC_READ CHAR(1) INIT('N'); 05460099
05460099
DCL STR_PSEUDO_BIN (UPC_STR_N) BIN FIXED(31) CTL;
DCL STR_DONE_IND (UPC_STR_N) CHAR(1) CTL;
DCL STR_FIRST_WK (UPC_STR_N) BIN FIXED (15) CTL;
DCL STR_LAST_WK (UPC_STR_N) BIN FIXED (15) CTL;
DCL 1 STORE_REC_TABLE(UPC_STR_N) CTL, 05460099
5 STR_REC_DESC, 05460099
7 STRR_RPT_KEY, 05460099
9 STRR_RPT_SUB BINARY FIXED (15), 05460099
9 STRR_INDIC_MKT_NUM, 05460099
10 STRR_PROMO_RPT_INDIC CHAR(2), 05460099
10 STRR_MKT_SUB BINARY FIXED (15), 05460099
10 STRR_MULT_RPT_NUM CHAR(2), 05460099
7 STRR_RPT_POS BINARY FIXED (15), 05460099
7 STRR_RECORD_POS, 05460099
9 STRR_BRAND_POS BINARY FIXED (15), 05460099
9 STRR_BRAND_KEY CHAR (30), 05460099
9 STRR_ITEM_POS BINARY FIXED (31), 05460099
7 STRR_RECORD_TYPE CHAR (1), 05460099
7 STRR_ORG CHAR (3), 05460099
7 STRR_STR CHAR(5), 05460099
7 STRR_STRR_SUB BINARY FIXED (15), 05460099
7 STRR_NUM_WKS BINARY FIXED (15), 05460099
5 STR_MVMT_BSLN(MAX_WKS_TAP), 05460099
7 STR_MVMT, 05460099
10 STR_UNITS DECIMAL FIXED (9), 05460099
10 STR_PRICE DECIMAL FIXED (5,2), 05460099
7 STR_BSLN, 05460099
10 STR_BSLN_SALES_UNITS DECIMAL FLOAT (16), 05460099
10 STR_BSLN_SELL_PRICE DECIMAL FIXED (5,2), 05460099
10 STR_BSLN_CONDITIONS BINARY FIXED (31), 05460099
5 STR_SELL_PR_MULT(MAX_WKS_TAP) PIC '999', 05460099
5 STR_CAUSAL(MAX_WKS_TAP), 05460099
10 STR_CAUSAL_DATA CHAR(50), 05460099
5 STR_INV(MAX_WKS_TAP), 05460099
10 STR_INV_DATA CHAR(25), 05460099
5 STR_EXP1(MAX_WKS_TAP), 05460099
10 STR_EXP1_DATA CHAR(6), 05460099
5 STR_EXP2(MAX_WKS_TAP), 05460099
10 STR_EXP2_DATA CHAR(25), 05460099
5 STR_WEEK_PRICE(MAX_WKS_TAP), 05460099
10 ANCHOR_PRICE DECIMAL FIXED(5,2), 05460099
5 STR_PROMO_IND(MAX_WKS_TAP) CHAR(1);
05460099
DCL 1 CELL_WEEK(60), 05460099
5 PD_NP_TOT FLOAT DEC(16), 05460099
5 PD_AP_TOT FLOAT DEC(16), 05460099
5 PD_MEDIAN_NP FLOAT DEC(16), 05460099
5 PD_MEDIAN_AP FLOAT DEC(16), 05460099
5 NUM_STRS_AP BINARY FIXED(31), 05460099
5 NUM_STRS_NP BINARY FIXED(31); 05460099
05460099
DCL STR# BINARY FIXED(31) INIT(0); 05460099
DCL BSLN_FIRST_WK BINARY FIXED(15) INIT(0); /*TAB9*/ 05460099
DCL BSLN_LAST_WK BINARY FIXED(15) INIT(0); /*TAB9*/ 05460099
DCL TOT_RECS_TO_RETURN BINARY FIXED(31) INIT(0); 05460099
DCL DSTSEN_PRICE_IMPUTE_DONE CHAR(1) INIT('N'); 05460099
DCL HA_ITEM_POS BINARY FIXED(31) INIT(0); 05460099
DCL MAX_STRS_N_CELL BINARY FIXED(31) INIT(500); 05460099
05460099
DCL 1 PD_NP_TBL(MAX_WKS_TAP) CTL, 05460099
5 PD_NP(MAX_STRS_N_CELL) FLOAT DEC(16); 05460099
05460099
DCL 1 PD_AP_TBL(MAX_WKS_TAP) CTL, 05460099
5 PD_AP(MAX_STRS_N_CELL) FLOAT DEC(16); 05460099
05460099
/* END AAS2 CHANGES */ 05460099
05460099
/*****************************************************/ 05470099
/* PASS_INDIC 0) INIT */ 05480099
/* 1) XSCHECK */ 05490099
/* 2) XSB-MKTADJUST */ 05500099
/* 3) BASELINE */ 05510099
/* 4) NORMAL */ 05520099
/*****************************************************/ 05530099
05540099
DCL (PRT_CTR,PRT_CTR_SPEC) BINARY FIXED (15) INIT(0); 05550099
DCL (PRT_CTR_SPEC_CEN) BINARY FIXED (15) INIT(0); /*AXA5*/ 05550099
DCL NCOND BINARY FIXED (15) INIT(0); 05560099
DCL PRICE_WK BINARY FIXED (15) INIT(0); 05570099
DCL NBOGO BINARY FIXED (15) INIT(0); 05580099
DCL NBOGO_USED BINARY FIXED (15) INIT(0); 05590099
DCL SW_BOGO_FOUND CHAR (1) INIT(' '); 05600099
DCL RET_CODE BINARY FIXED (31) INIT(0); 05610099
DCL SW_RACK_IN_PCT_D CHAR (1) INIT(' '); 05620099
DCL SW_RACK_IN_BASELINE CHAR (1) INIT(' '); 05630099
DCL SW_PERM_IN_PCT_D CHAR (1) INIT(' '); /*PPP-B*/ 05620099
DCL SW_PERM_IN_BASELINE CHAR (1) INIT(' '); /*PPP-B*/ 05630099
DCL SW_IRCS_IN_BASELINE CHAR (1) INIT(' '); 05640099
DCL SW_PMEXPCSL_IN_BASELINE CHAR (1) INIT(' '); 05650099
DCL SW_BSELINE_IDS CHAR (1) INIT(' '); /* PPP */
DCL SW_CENSUS_SPEC_IND CHAR (1) INIT(' '); /*AXA2*/ 05650099
DCL SW_MIX_STR CHAR (1) INIT('N'); /*AXA2*/ 05650099
DCL SW_REACH_REQ_IND CHAR (1) INIT(' '); /*AXA4*/ 05650099
DCL BIN_PRC_DECR_WEEKS BINARY FIXED (15); 05660099
DCL PR_DCR_1_INIT BINARY FIXED (15) INIT(9); 05670099
DCL PR_DCR_2_INIT BINARY FIXED (15) INIT(13); 05680099
DCL PR_DCR_1_LOOP BINARY FIXED (15) INIT(7); 05690099
DCL PR_DCR_2_LOOP BINARY FIXED (15) INIT(13); 05700099
DCL SW_LOC_COND_IND CHAR (1) INIT(' '); 05710099
DCL SW_ANY_BASELINE CHAR(1); 05720099
DCL SW_EOF_MKTADJ BINARY FIXED (15) INIT(0); 05730099
DCL SW_EOF_CSLREAL BINARY FIXED (15) INIT(0); 05740099
DCL SW_EOF_DTLIN BINARY FIXED (15) INIT(0); 05750099
DCL SW_EOF_DEAL BINARY FIXED (15) INIT(0); 05760099
DCL SW_EOF_STORE_USE BINARY FIXED (15) INIT(0); 05770099
DCL SW_EOF_DBDESC BINARY FIXED (15) INIT(0); 05780099
DCL SW_EOF_BRDPRC BINARY FIXED (15) INIT(0); 05790099
DCL SW_NEW_DEAL_SPEC BINARY FIXED (15) INIT(0); 05800099
DCL SW_NEW_DBDESC_SPEC BINARY FIXED (15) INIT(0); 05810099
DCL SW_EOF_STRREL BINARY FIXED (15) INIT(0); /*AAS2*/ 05810099
DCL FEAT(MAX_FET_CNT) BINARY FIXED (15) 05820099
INIT((MAX_FET_CNT)0); 05830099
DCL DISP(MAX_DSP_CNT) BINARY FIXED (15) 05840099
INIT((MAX_DSP_CNT)0); 05850099
DCL PA DEC FLOAT (16) INIT(0); 05860099
DCL RP DEC FLOAT (16) INIT(0); 05870099
DCL PRB(5) DEC FLOAT (16) INIT((4)0); 05880099
DCL HLB(2) DEC FLOAT (16) INIT((2)0); 05890099
DCL N_VAL_STRS BINARY FIXED (15) INIT(0); 05890099
DCL RPP DEC FLOAT (16) INIT(0); 05900099
DCL RPP_VAL DEC FLOAT (16) INIT(0); 05910099
DCL BASIS CHAR (1) INIT(' '); 05920099
DCL PARM4IND CHAR (1) INIT('N'); 05920099
DCL SW_REC_FOUND CHAR (1) INIT(' '); 05930099
DCL SW_EMPTY_FILE CHAR (1) INIT(' '); 05940099
DCL 1 RPTSPEC_K_KEY UNALIGNED, 05950099
3 RPTSPEC_KEY_RPT CHAR (9) INIT((9)' '), 05960099
3 RPTSPEC_KEY_MKT CHAR (5) INIT((5)' '), 05970099
3 RPTSPEC_KEY_TYPE CHAR (2) INIT((2)' '), 05980099
3 RPTSPEC_KEY_COUNT CHAR (8) INIT((8)' '); 05990099
DCL RPTSPEC_KEY CHAR(24) BASED(ADDR(RPTSPEC_K_KEY)); 06000099
DCL CURRENT_RPT CHAR (9) INIT((9)' '); 06010099
DCL CURRENT_MKT_SUB FIXED BIN(15) INIT(0); 06020099
DCL CURRENT_RPT_SUB BINARY FIXED (15) INIT(0); 06030099
DCL (CURRENT_STR) CHAR (5) INIT((5)' '); 06040099
DCL CURRENT_ORG CHAR (3) INIT((3)' '); 06050099
DCL ALPHA_OOS_VALUE CHAR (2) INIT((2)' '); 06060099
06070099
% PAGE; 06080099
/**************************************************************/ 06090099
/* DECLARE AND FETCH RUN-TIME BAL SUBROUTINE */ 06100099
/**************************************************************/ 06110099
06120099
DCL 1 SKACOND_CTL UNALIGNED, 06130099
3 RC BIN FIXED(15), 06140099
3 FCT BIN FIXED(15), 06150099
3 PARMS, 06160099
5 TBL, 06170099
7 PARM1_PRD BIN FIXED(15), 06180099
7 PARM2_PRD BIN FIXED(15), 06190099
5 MKT, 06200099
7 STR BIN FIXED(15), 06210099
7 PRD BIN FIXED(15), 06220099
7 COND BIN FIXED(15), 06230099
5 W2P (60), 06240099
7 FROM BIN FIXED(15), 06250099
7 TO BIN FIXED(15), 06260099
5 WORK_AREA, 06270099
7 S1AD BIN FIXED(31), 06280099
7 S2AD BIN FIXED(31), 06290099
7 S3AD BIN FIXED(31), 06300099
7 S4AD BIN FIXED(31), 06310099
7 S1SW BIN FIXED(31), 06320099
7 S2SW BIN FIXED(31), 06330099
7 S3SW BIN FIXED(31), 06340099
7 S4SW BIN FIXED(31), 06350099
7 P1SW BIN FIXED(31), 06360099
7 P2SW BIN FIXED(31), 06370099
7 P3SW BIN FIXED(31), 06380099
7 P4SW BIN FIXED(31); 06390099
DCL 1 MOV_MEM_1 UNALIGNED, 06400099
3 RC BIN FIXED(15), 06410099
3 FCT BIN FIXED(15) INIT(7), 06420099
3 PARMS, 06430099
5 SRC, 06440099
7 ADDR POINTER, 06450099
7 LEN BIN FIXED(31), 06460099
5 DEST, 06470099
7 ADDR POINTER, 06480099
7 LEN BIN FIXED(31), 06490099
5 PAD CHAR(1) INIT('00'X); 06500099
DCL 1 CLR_MEM_BIN_0 UNALIGNED, 06510099
3 RC BIN FIXED(15), 06520099
3 FCT BIN FIXED(15) INIT(7), 06530099
3 PARMS, 06540099
5 SRC, 06550099
7 ADDR POINTER INIT(NULL), 06560099
7 LEN BIN FIXED(31) INIT(0), 06570099
5 DEST, 06580099
7 ADDR POINTER, 06590099
7 LEN BIN FIXED(31), 06600099
5 PAD CHAR INIT('00'X); 06610099
DCL 1 CLR_MEM_CHAR_0 UNALIGNED, 06620099
3 RC BIN FIXED(15), 06630099
3 FCT BIN FIXED(15) INIT(7), 06640099
3 PARMS, 06650099
5 SRC, 06660099
7 ADDR POINTER INIT(NULL), 06670099
7 LEN BIN FIXED(31) INIT(0), 06680099
5 DEST, 06690099
7 ADDR POINTER, 06700099
7 LEN BIN FIXED(31), 06710099
5 PAD CHAR INIT('0'); 06720099
DCL 1 CLR_MEM_SPACES UNALIGNED, 06730099
3 RC BIN FIXED(15), 06740099
3 FCT BIN FIXED(15) INIT(7), 06750099
3 PARMS, 06760099
5 SRC, 06770099
7 ADDR POINTER INIT(NULL), 06780099
7 LEN BIN FIXED(31) INIT(0), 06790099
5 DEST, 06800099
7 ADDR POINTER, 06810099
7 LEN BIN FIXED(31), 06820099
5 PAD CHAR INIT(' '); 06830099
DCL 1 MOV_MEM_MULT UNALIGNED, 06840099
3 RC BIN FIXED(15), 06850099
3 FCT BIN FIXED(15) INIT(8), 06860099
3 PARMS, 06870099
7 SRC_ADDR POINTER, 06880099
7 LEN BIN FIXED(31), 06890099
7 DEST_ADDR POINTER, 06900099
7 #_ITER BIN FIXED(31); 06910099
06920099
DCL SKACOND EXT ENTRY OPTIONS(ASM,INTER); 06930099
FETCH SKACOND; 06940099
06950099
DCL BLOC_BJ_PTR POINTER; 06960099
DCL 1 BLOC_BJ_CTL UNALIGNED, 06970099
5 RC BIN FIXED(15), 06980099
5 FCT BIN FIXED(15) INIT(30), 06990099
5 DBG, 07000099
7 B_POS POINTER, 07010099
7 I_POS POINTER, 07020099
7 ORG POINTER, 07030099
7 STR POINTER, 07040099
5 MAXWKS BIN FIXED(15), 07050099
5 MAXDSP BIN FIXED(15), 07060099
5 MAXFET BIN FIXED(15), 07070099
5 PA FLOAT DEC(16), 07080099
5 HLB1 FLOAT DEC(16), 07090099
5 HLB2 FLOAT DEC(16), 07100099
5 XSB_PTR POINTER, 07110099
5 DSP_PTR POINTER, 07120099
5 FET_PTR POINTER, 07130099
5 OOS_PTR POINTER, 07140099
5 PDB_PTR POINTER, 07150099
5 RWU_PTR POINTER, 07160099
5 PBSU_PTR POINTER, 07170099
5 BASE1_PTR POINTER, /*TAB9*/ 07180099
5 FIRST_WK POINTER, /*TAB9*/ 07180099
5 LAST_WK POINTER; /*TAB9*/ 07180099
DCL BLOC_SP_PTR POINTER; 07190099
DCL 1 BLOC_SP_CTL UNALIGNED, 07200099
5 RC BIN FIXED(15), 07210099
5 FCT BIN FIXED(15) INIT(20), 07220099
5 DBG, 07230099
7 B_POS POINTER, 07240099
7 I_POS POINTER, 07250099
7 ORG POINTER, 07260099
7 STR POINTER, 07270099
5 MAXWKS BIN FIXED(15), 07280099
5 PRC_PTR POINTER, 07290099
5 RPR_PTR POINTER, 07300099
5 PRB_PTR POINTER, 07310099
5 PDL_PTR POINTER; 07320099
DCL BLOC_RP_PTR POINTER; 07330099
DCL 1 BLOC_RP_CTL UNALIGNED, 07340099
5 RC BIN FIXED(15), 07350099
5 FCT BIN FIXED(15) INIT(10), 07360099
5 DBG, 07370099
7 B_POS POINTER, 07380099
7 I_POS POINTER, 07390099
7 ORG POINTER, 07400099
7 STR POINTER, 07410099
5 MAXWKS BIN FIXED(15), 07420099
5 P_PTR POINTER,

kolusu · Posted: Wed Apr 27, 2005 11:45 am Post subject:

Karunkallore,

please stop posting the entire code of yours

Thanks

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

karunkallore · Beginner Joined: 11 Dec 2004 Posts: 103 Topics: 39

I am trying to paste the source code but when i submit some other things are coming. I am not sure of the reason. Please advise if any alternative way is there for that.

Thanks,
Karun.

kolusu · Posted: Wed Apr 27, 2005 2:33 pm Post subject:

karunkallore,

We don't the entire program for analaysing the abend. Take a look at your sysout

karunkallore · Beginner Joined: 11 Dec 2004 Posts: 103 Topics: 39

Hi Kolsu,

Sorry for the post of the code.

Here i am not moving any return code of 16 to sort exit.

In the Sysout prir to this E15 error messages you can see that there is a

IBM0534S ONCODE=8094 Protection exception .

Is this because the file that i am sorting is huge and Syncsort is not getting the virtual memory ?

I think the return code of 16 is beacuse of the first abend 8094. I am not sure of that.

Please guide me.

Thanks,
Karun.