Calling difference between SUBPGM and PROC in PL/I

devidas-patil · New User Joined: 08 Jan 2007 Posts: 54 Location: pune

hi friend,
can someone tell me difference between the calling subprogram and proc. like we use CALL in COBOL to call the subpgm.

Example: sproc1 is my procedure sio i will call it as

CALL SPROC
BUT if subpgm is stored somewhere in other pds
then how to call it in PL/I pgm.

Bitneuker · Posted: Wed Jan 31, 2007 3:31 pm

You can call a piece of code which is defined within your mainproc and you can call an external module (is it's own proc) which you declare in the caller as entry. Sample:

Bitneuker · Posted: Wed Jan 31, 2007 3:44 pm

Clarified it a bit..........

daredevil · New User Joined: 30 Dec 2005 Posts: 9

Hi ,

when you have the sub program coded in another PDS , During the Linking process , you have to give a link card which gives the list of object modules cluped in top make a Load module.

So when you are running a PL1 Load which consist of 2 program ,1 main and i sub program , since you have created the load clupping both the object modules, the program will run fine.

During the linking process, if you have not specidfied the library where the object module exist correctly, then the linkage step will fail and no load willbe created.

Thanks
Daredevil

devidas-patil · New User Joined: 08 Jan 2007 Posts: 54 Location: pune

Hi thanks a lot for your replies

satya123 · New User Joined: 18 Aug 2006 Posts: 57

hi

Somebody ! Please help me

How to call subprogram from mainprogram ?????

What i did are the steps.............with program and its compile jcl.........

step-1 ---- compiling the subprogram first

SUB2:PROCEDURE OPTIONS(MAIN);
DCL A FIXED BIN EXT;
A=200;
PUT SKIP LIST('INSIDE SUB2',A);
END SUB2;

with following JCL

//DOPROC EXEC PROC=PLICOMP
//PLI.SYSIN DD DSN=X.PLI.JCL(SUB2),DISP=SHR
//LKED.SYSLMOD DD DSN=X.PLI.LOAD(SUB2),DISP=SHR
//LKED.SYSLIB DD
// DD DSN=X.PLI.OBJ,DISP=SHR
//*
//

step-2 ------compiling the main program next

Main Program is

SEC1:PROCEDURE OPTIONS(MAIN);
DCL SUB2 EXTERNAL ENTRY;
SUB:PROCEDURE;
DCL A FIXED BIN EXT;
A=100;
PUT SKIP LIST('INSIDE SUB',A);
END SUB;
/* */
CALL SUB;
CALL SUB2;
END SEC1;

with following JCL

//DOPROC EXEC PROC=PLICOMP
//PLI.SYSIN DD DSN=X.PLI.JCL(SEC1),DISP=SHR
//LKED.SYSLMOD DD DSN=X.PLI.LOAD(SEC1),DISP=SHR
//LKED.SYSLIB DD
// DD DSN=X.PLI.OBJ,DISP=SHR
//*
//

WHEN I SUBMIT THIS IT IS SHOWING follwing error

IEW2456E 9207 SYMBOL SUB2 UNRESOLVED. MEMBER COULD NOT BE INCLUDED FROM THE DESIGNATED CALL LIBRARY

IEW2638S 4321 AN EXECUTABLE VERSION OF MODULE SEC1 EXISTS AND CANNOT BE REPLACED BY THE NON-EXECUTABLE MODULE JUST
CREATED.

IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 12.

thanks please guide me

Bitneuker · Posted: Fri Jul 20, 2007 3:55 pm

Did you check if SUB2 object is in the syslib library?

satya123 · New User Joined: 18 Aug 2006 Posts: 57

Hi,
Thanks for reply...

NO syslib does not have the compiled member

What to do???next

satya123

Bitneuker · Posted: Sun Jul 22, 2007 2:57 pm

So it's no wonder you get these messages. The linker could not locate the object to include. Check your x.pli libraries where sub2 is located and concatenate that library. How does your plicomp proc look like?

satya123 · New User Joined: 18 Aug 2006 Posts: 57

Hi George,

Really greatful for reply.........

Our PLICOMP is as follows...please guide me whether any changes have to be taken......

//PLICOMP PROC LNGPRFX='IEL320',LIBPRFX='CEE',
// SYSLBLK=3200,GOPGM=GO
//PLI EXEC PGM=IBMZPLI,PARM='SOURCE,OPTIONS,GOSTMT,GONUMBER,
// OBJECT',REGION=512K
//STEPLIB DD DSN=&LNGPRFX..SIBMZCMP,DISP=SHR
// DD DSN=&LIBPRFX..SCEERUN,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(TRK,(3,3)),DCB=(LRECL=80,BLKSIZE=&SYSLBLK)
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,
// SPACE=(1024,(200,50),,CONTIG,ROUND),DCB=BLKSIZE=1024
//LKED EXEC PGM=HEWL,COND=(9,LT,PLI),REGION=512K
//SYSLIB DD DSN=&LIBPRFX..SCEELKED,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//SYSLMOD DD DSN=&&GOSET(&GOPGM),DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(1024,(50,20,1))
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)),
// DCB=BLKSIZE=1024
//SYSIN DD DUMMY

Thanks

Satya123

Bitneuker · Posted: Mon Jul 23, 2007 7:09 pm

Does your CEE.SCEELKED contain the load of SUB2?

satya123 · New User Joined: 18 Aug 2006 Posts: 57

i checked but did not find sub2

anbesivam · New User Joined: 22 Aug 2006 Posts: 5

Hi satya123

Change your Link step as follows:

satya123 · New User Joined: 18 Aug 2006 Posts: 57

THANKS A LOT FOR YOUR HELP.......

SATYA123