MVSFORUMS.com

[kris_madras]

Hi all,
I am a new buddy to PLI. I have written a PLI program to read KSDS data set.. The following is the small snippet that reflects entire program logic.

The main problem here is I have used CMF_KEY as the key which is group item.. Its giving compilation error like...

"AGGREGATE 'CMF_REC.CMF_KEY' USED WHERE ELEMENT EXPRESSION IS REQUIRED"



Could anybody suggest where should I correct it?


/* File Declaration */
0DCL CMFFILE FILE RECORD INPUT SEQUENTIAL BUFFERED
ENV(INDEXED KEYLOC(2) KEYLENGTH(12)),


/* Record Layout for KSDS */

0DCL
01 CMF_REC,
03 PPISAMDELETE CHAR(1),
03 CMF_KEY,
05 PPDDDPRODUCT,
07 PPDPMFR FIXED DECIMAL(5),
07 PPDPSEQ FIXED DECIMAL(10),
05 PPRECORDTYPE CHAR(1) INIT('H'),
05 PPCNTRLNO FIXED DECIMAL(3),
03 FILLER CHAR(125)
;



/* Read Statement */

PPDPMFR= some defined values......
PPDPSEQ= some defined values....
PPRECORDTYPE= 'I';
PPCNTRLNO= 0;
READ FILE(CMFFILE) INTO(CMF_REC) KEY(CMF_KEY);




Thanks and Regards,
Sai Krishna

[kolusu]

kris_madras,

Try this