My table CAT is defined with 6 groups of columns (i.e. curr month, months 1-24, prev 12, prev 24 repeated 6 times as table layout with different names of course). I am using the DIM array so I can process those months just using a loop, not quite sure if the DS are defined correctly and if there are better way to do this please let me know.
I have following DS defined over my table CAT and trying to initialize, when I run the record format fields are initialized but the DIM fields are not.
Doesn't Clear handle this?
DCL-DS wSkuO Qualified;
wSkuOld LikeRec(CATr:*input);
wSrcReqMonO Zoned(5:0) Dim(24) POS(25) Inz(0);
wFreeReqMonO Zoned(5:0) Dim(24) POS(108) Inz(0);
wOrdVndMonO Zoned(5:0) Dim(24) POS(191) Inz(0);
wOrdT1MonO Zoned(5:0) Dim(24) POS(274) Inz(0);
wOrdT2MonO Zoned(5:0) Dim(24) POS(357) Inz(0);
wDCOutMonO Zoned(5:0) Dim(12) POS(440) Inz(0);
END-DS;
DCL-DS wSkuN Qualified;
wSkuNew LikeRec(CATr:*input);
wSrcReqMonN Zoned(5:0) Dim(24) POS(25) Inz(0);
wFreeReqMonN Zoned(5:0) Dim(24) POS(108) Inz(0);
wOrdVndMonN Zoned(5:0) Dim(24) POS(191) Inz(0);
wOrdT1MonN Zoned(5:0) Dim(24) POS(274) Inz(0);
wOrdT2MonN Zoned(5:0) Dim(24) POS(357) Inz(0);
wDCOutMonN Zoned(5:0) Dim(12) POS(440) Inz(0);
END-DS;
DCL-DS wSku Qualified;
wSkuOut LikeRec(CATr:*output);
wSrcReqMonOut Zoned(5:0) Dim(24) POS(25) Inz(0);
wFreeReqMonOut Zoned(5:0) Dim(24) POS(108) Inz(0);
wOrdVndMonOut Zoned(5:0) Dim(24) POS(191) Inz(0);
wOrdT1MonOut Zoned(5:0) Dim(24) POS(274) Inz(0);
wOrdT2MonOut Zoned(5:0) Dim(24) POS(357) Inz(0);
wDCOutMonOut Zoned(5:0) Dim(12) POS(440) Inz(0);
END-DS;
Clear wSku;
Clear wSku.wSkuOut;
Clear wSkuN;
Clear wSkuN.wSkuNew;
Clear wSkuO;
Clear wSkuO.wSkuOld;
I have following DS defined over my table CAT and trying to initialize, when I run the record format fields are initialized but the DIM fields are not.
Doesn't Clear handle this?
DCL-DS wSkuO Qualified;
wSkuOld LikeRec(CATr:*input);
wSrcReqMonO Zoned(5:0) Dim(24) POS(25) Inz(0);
wFreeReqMonO Zoned(5:0) Dim(24) POS(108) Inz(0);
wOrdVndMonO Zoned(5:0) Dim(24) POS(191) Inz(0);
wOrdT1MonO Zoned(5:0) Dim(24) POS(274) Inz(0);
wOrdT2MonO Zoned(5:0) Dim(24) POS(357) Inz(0);
wDCOutMonO Zoned(5:0) Dim(12) POS(440) Inz(0);
END-DS;
DCL-DS wSkuN Qualified;
wSkuNew LikeRec(CATr:*input);
wSrcReqMonN Zoned(5:0) Dim(24) POS(25) Inz(0);
wFreeReqMonN Zoned(5:0) Dim(24) POS(108) Inz(0);
wOrdVndMonN Zoned(5:0) Dim(24) POS(191) Inz(0);
wOrdT1MonN Zoned(5:0) Dim(24) POS(274) Inz(0);
wOrdT2MonN Zoned(5:0) Dim(24) POS(357) Inz(0);
wDCOutMonN Zoned(5:0) Dim(12) POS(440) Inz(0);
END-DS;
DCL-DS wSku Qualified;
wSkuOut LikeRec(CATr:*output);
wSrcReqMonOut Zoned(5:0) Dim(24) POS(25) Inz(0);
wFreeReqMonOut Zoned(5:0) Dim(24) POS(108) Inz(0);
wOrdVndMonOut Zoned(5:0) Dim(24) POS(191) Inz(0);
wOrdT1MonOut Zoned(5:0) Dim(24) POS(274) Inz(0);
wOrdT2MonOut Zoned(5:0) Dim(24) POS(357) Inz(0);
wDCOutMonOut Zoned(5:0) Dim(12) POS(440) Inz(0);
END-DS;
Clear wSku;
Clear wSku.wSkuOut;
Clear wSkuN;
Clear wSkuN.wSkuNew;
Clear wSkuO;
Clear wSkuO.wSkuOld;
Comment