MVSFORUMS.com

shekar123 · Posted: Wed Apr 26, 2006 6:19 am Post subject: Need help with a PLI program

Hai All,

I have a requirement in PLI where in i have to read records one by one and i need to check the sequence number with the next record's sequence number ,if they are different i need to add some text 'EMPLOYEE WORKED' at the end of the output dataset.If the sequence numbers are equal i need not add the text 'EMPLOYEE WORKED' for the same sequence number.Can anybody help me out in the problem ?

TEST CASE1

Input dataset
-------------

kolusu · Posted: Wed Apr 26, 2006 11:51 am Post subject:

Shekhar123,

I am coding a PLI program after a long time. So I don't have time to check for performance.

[code:1:5f61e550bb]
PLISAMP: PROC OPTIONS(MAIN);
DCL INPUT1 FILE INPUT RECORD,
OUTPUT1 FILE OUTPUT RECORD SEQUENTIAL;

DCL IN_EOF BIT(1) INIT('0'B);

DCL 1 INPUT_REC,
3 INP_KEY CHAR(06),
3 IN_FILLER1 CHAR(01),
3 IN_COMMENT CHAR(15),
3 IN_FILLER2 CHAR(58);

DCL 1 SAVE_REC,
3 SAVE_KEY CHAR(06),
3 SAVE_FILLER1 CHAR(01),
3 SAVE_COMMENT CHAR(15),
3 SAVE_FILLER2 CHAR(58);

DCL W_PREV_KEY CHAR(6) INIT(' ');

OPEN FILE(INPUT1) INPUT,
FILE(OUTPUT1) OUTPUT;

ON ENDFILE(INPUT1) IN_EOF = '1'B;

READ FILE(INPUT1) INTO(INPUT_REC);
SAVE_REC = INPUT_REC;

DO WHILE (
_________________
Kolusu
www.linkedin.com/in/kolusu

shekar123 · Posted: Thu Apr 27, 2006 12:37 am Post subject:

Thanks Kolusu you are really great ,

Kolusu the pgm you wrote compiled successfullly with no erorrs, run successfully with the desired outputs.I would like to say thanks once again to the solution you gave me was really very very helpful in my necessity.The way you code and your approach is excellent.
_________________
Shekar
Grow Technically