How Calling IDCAMS From PL/I

treize59 · New User Joined: 15 Mar 2006 Posts: 2

Hi,

I want to call IDCAMS from PL/I. IDCAMS is in RM=24 and AM=ANY, my program is in AM=31 and RM=ANY. I searched some doc about this and i found some sample in asm (http://www.itc.virginia.edu/~drs8h/articles/idcupdt.txt) and cobol (http://www.naspa.com/PDF/2000/0100%20TS%20PDFs/T0001006.pdf) but none in PL/I.

When i run my program in mode 24 (stack=below in JCL), the return code is ok.
But, when i run my program in mode 31, i have an abend S0C4-4.

I think my problem is in the parameters to call IDCAMS.

here is the code:

wcorsar · New User Joined: 15 Jul 2006 Posts: 6 Location: Florida

Here's and example of code we used to accomplish the same thing. Note the difference in the DCL for IDCAMS, the definition of the PARM structure and the call. (Do not pass OPL parameter.)

Hope this helps.

CALLIDC: PROCEDURE OPTIONS(MAIN) REORDER;
DCL IDCAMS EXTERNAL ENTRY OPTIONS (ASM,INTER);
DCL SORTIE CHAR(80) INIT ('');
DCL Q CHAR (1) INIT ('''');
DCL FILOUT FILE RECORD OUTPUT;

DCL 1 CTPARM,
2 OPT,
3 L1 FIXED BIN (15) INIT (0),
3 OPL CHAR (4) INIT('');

DCL 1 CTDDN,
2 DDN,
3 L2 FIXED BIN (15) INIT (48),
3 DIV,
4 B01 CHAR(8) INIT (LOW(8)),
4 B02 CHAR(8) INIT (LOW(8)),
4 B03 CHAR(8) INIT (LOW(8)),
4 B04 CHAR(8) INIT (LOW(8)),
4 DD1 CHAR (8) INIT ('SYSIN '),
4 DD2 CHAR (8) INIT ('SYSPRINT');

OPEN FILE (FILOUT) TITLE('SYSIN');
SORTIE =
' REPRO IDS(TEST.PLI.IDCAMS.IN) -';
WRITE FILE (FILOUT) FROM (SORTIE);

SORTIE =
' ODS(TEST.PLI.IDCAMS.OUT)';
WRITE FILE (FILOUT) FROM (SORTIE);

CLOSE FILE (FILOUT);
FETCH IDCAMS;

CALL IDCAMS (CTPARM.L1,
CTDDN.L2,
CTDDN.B01,
CTDDN.B02,
CTDDN.B03,
CTDDN.B04,
CTDDN.DD1,
CTDDN.DD2);

RELEASE IDCAMS;
END CALLIDC;

treize59 · New User Joined: 15 Mar 2006 Posts: 2

Thank you,

I have found why my job is in error. If I code STACK(,,BELOW) instead of STACK(,,ANY) to LE/370, I have a RC=0.

If I code STACK(,,ANY), I'll
It's normal, because IDCAMS is in AM=ANY and RM=24.