IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Compiler and run JCL for basic PL/I program


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
anandbtech01

New User


Joined: 07 Feb 2022
Posts: 14
Location: INDIA

PostPosted: Mon Jun 13, 2022 3:24 pm
Reply with quote

Need compiler and run JCL for basic PL/I program. Eg: Hello World Program
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 812
Location: Bamberg, Germany

PostPosted: Mon Jun 13, 2022 4:24 pm
Reply with quote

See here.
Back to top
View user's profile Send private message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Mon Jun 13, 2022 4:45 pm
Reply with quote

see here
Back to top
View user's profile Send private message
anandbtech01

New User


Joined: 07 Feb 2022
Posts: 14
Location: INDIA

PostPosted: Mon Jun 13, 2022 5:09 pm
Reply with quote

Code:

//ADCDCHI JOB 1,CHRIS,MSGCLASS=X,NOTIFY=&SYSUID         
//*------------------------------------------------------
//DIMCOMP  EXEC PGM=IBMZPLI,PARM='OBJECT,OPTIONS'       
//STEPLIB  DD DSN=ADCDE.TEST.LOAD,DISP=SHR               
//*                                                     
//IBMZPLI.PLIUSER DD DISP=SHR,DSN=ADCDE.TEST.PLI(HELLO) 
//SYSPRINT DD SYSOUT=*     


Getting error

Code:

CSV003I REQUESTED MODULE IBMZPLI  NOT FOUND               
CSV028I ABEND806-04  JOBNAME=ADCDCHI   STEPNAME=DIMCOMP   
IEA995I SYMPTOM DUMP OUTPUT                               
SYSTEM COMPLETION CODE=806  REASON CODE=00000004         
 TIME=05.09.59  SEQ=01363  CPU=0000  ASID=0027           
 PSW AT TIME OF ERROR  070C1000   816D8AE2  ILC 2  INTC 0D
   NO ACTIVE MODULE FOUND                                 
   NAME=UNKNOWN                                           
   DATA AT PSW  016D8ADC - 8400181E  0A0D18FB  180C181D   
IEF472I ADCDCHI DIMCOMP - COMPLETION CODE - SYSTEM=806 USER=0000 REASON=00000004
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1162
Location: Dublin, Ireland

PostPosted: Mon Jun 13, 2022 6:24 pm
Reply with quote

S806 abend is "module not found".

STEPLIB for PGM=IMBZPLI needs to be the library where PL/1 is installed. Also, the step shown for your job is just a compile - there's no "go" step.

Garry.
Back to top
View user's profile Send private message
anandbtech01

New User


Joined: 07 Feb 2022
Posts: 14
Location: INDIA

PostPosted: Mon Jun 13, 2022 7:03 pm
Reply with quote

I am new to PL/I , just started my study with it. If possible someone help by posting code for Compilation and execution.

It will be great helpful
Back to top
View user's profile Send private message
Garry Carroll

Senior Member


Joined: 08 May 2006
Posts: 1162
Location: Dublin, Ireland

PostPosted: Mon Jun 13, 2022 7:09 pm
Reply with quote

Procedures for this are in SYS1.SIBMZPRC.

Garry.
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 1533

PostPosted: Mon Jun 13, 2022 8:46 pm
Reply with quote

anandbtech01 wrote:
I am new to PL/I , just started my study with it. If possible someone help by posting code for Compilation and execution.

It will be great helpful

First of all: please, check with your System Support - is PL/I installed in your environment, at all???

P.S.
You have been suggested to continue with the separate forum. Did you read the previous responses?
Back to top
View user's profile Send private message
anandbtech01

New User


Joined: 07 Feb 2022
Posts: 14
Location: INDIA

PostPosted: Fri Jun 17, 2022 12:49 pm
Reply with quote

Code:

***************************** Top of Data ******************************
//ADCDEPC JOB 1,ANAND,MSGCLASS=X,NOTIFY=&SYSUID                         
//*                                                                     
//   SET MEM=HELLO               PROGRAM NAME                           
//*  SET SORCLIB=DMFU.D.DMFU     SOURCE LIB                             
//   SET SORCLIB=ADCDE.TEST      SOURCE LIB                             
//*  SET SORCLIB=ADCDC.MY        SOURCE LIB (FOR PLI / LOAD )           
//*  ---------------------------                                       
//   SET PLICOMP='IEL520.SIBMZCMP'        PLI COMPILER LOADLIB         
//   SET DTLIB='EQAE10.SEQAMOD'           DEBUG TOOL LOADLIB           
//   SET LEHLQ='CEE'                      LE HIGH LVL QUALIFIER         
//   SET UNITDEV=SYSDA                    UNIT FOR TEMP FILES           
//   SET LANGX='IPVLANGX'                 IPVLANGX UTILITY PROGRAM     
//   SET LANGXLIB='FMNE10.SIPVMODA'       LIBRARY FOR IPVLANGX UTILITY 
//*    NOTE: USE THE IPVLANGX FACILITY SHIPPED WITH THE COMMON COMPONENT
//*                                                                     
//ALLOCOBJ EXEC PGM=IEFBR14              ALLOC OBJ LIB IF NEEDED       
//XSOURCE DD DSN=&SYSUID..MY.EXPANDED.SOURCE,SPACE=(CYL,(3,1,15)),     
//  DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=8000,DISP=(MOD,CATLG)           
//OBJ   DD DSN=&SYSUID..MY.OBJ,SPACE=(CYL,(3,1,15)),                 
//  DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=8000,DISP=(MOD,CATLG)         
//*  ***************************************                         
//*     PREPROCESS STEP (COMPILE STAGE 1)                             
//*  ***************************************                         
//PRECOMP  EXEC PGM=IBMZPLI,REGION=0M,                               
//   PARM=('MACRO,MDECK,NOCOMPILE,NOSYNTAX,INSOURCE')                 
//STEPLIB  DD   DSN=&PLICOMP,DISP=SHR                                 
//         DD   DSN=&LEHLQ..SCEERUN,DISP=SHR                         
//SYSIN    DD   DISP=SHR,DSN=&SORCLIB..PLI(&MEM)                     
//SYSLIB   DD   DISP=SHR,DSN=&SYSUID..TEST.COPYLIB                   
//SYSPRINT DD   SYSOUT=*                                             
//SYSUT1   DD   SPACE=(1024,(200,50),,CONTIG,ROUND),DCB=BLKSIZE=1024,
//             UNIT=&UNITDEV                                         
//SYSPUNCH DD DISP=SHR,DSN=&SYSUID..MY.EXPANDED.SOURCE(&MEM)         
//*                                                                   
//*  ***************************************                         
//*     COMPILE STEP (COMPILE STAGE 2)                               
//*  ***************************************                         
//COMPILE EXEC PGM=IBMZPLI,REGION=0M,                                   
// PARM=('+DD:OPTIONS')                                                 
//* THE +DD:OPTIONS PARAMETER IS USED TO DIRECT THE COMPILER TO         
//* GET THE COMPILATION OPTIONS FROM THE OPTIONS DD STATEMENT           
//OPTIONS  DD *                                                         
TEST(ALL),LIST,MAP,SOURCE,XREF(FULL),                                   
NOBLKOFF,AGGREGATE,ATTRIBUTES(FULL),NEST,OPTIONS,NOPT,                 
STMT,NONUMBER,OFFSET                                                   
/*                                                                     
//STEPLIB  DD DSN=&PLICOMP,DISP=SHR                                     
//         DD DSN=&LEHLQ..SCEERUN,DISP=SHR                             
//SYSIN    DD DISP=SHR,DSN=&SYSUID..MY.EXPANDED.SOURCE(&MEM)           
//SYSLIB   DD DISP=SHR,DSN=&SYSUID..TEST.COPYLIB                       
//*SYSPRINT DD DISP=SHR,DSN=&SYSUID..MY.ENTPLI.LISTING(&MEM)           
//SYSPRINT DD SYSOUT=*                                                 
//SYSUT1   DD SPACE=(CYL,(5,2),,CONTIG),DCB=BLKSIZE=1024,UNIT=&UNITDEV 
//SYSLIN   DD DSN=&SYSUID..MY.OBJ(&MEM),DISP=SHR                       
//*                                                                     
//*PLIPRINT  EXEC PGM=IEBGENER,REGION=0M                               
//*SYSPRINT  DD SYSOUT=*                                               
//*SYSUT1    DD DSN=&SYSUID..MY.ENTPLI.LISTING(&MEM),DISP=SHR         
//*SYSUT2    DD SYSOUT=*                                               
//*SYSIN     DD DUMMY                                                 
//*                                                                   
//*  *********************************                                 
//*     STEP TO GENERATE LANGX FILE                                   
//*  *********************************                                 
//*LANGX    EXEC PGM=&LANGX,REGION=32M,                               
//*  PARM='(PLI ERROR 64K CREF'                                       
//*STEPLIB  DD DISP=SHR,DSN=&LANGXLIB                                 
//*         DD DISP=SHR,DSN=&LEHLQ..SCEERUN                           
//*LISTING  DD DSN=&SYSUID..MY.ENTPLI.LISTING(&MEM),DISP=SHR           
//*IDILANGX DD DISP=SHR,DSN=&SYSUID..MY.EQALANGX(&MEM)                 
//*                                                                   
//* *********************************                                 
//* LINK-EDIT (BINDER) STEP                                           
//* *********************************                                 
//LINK EXEC PGM=IEWL,PARM=(LET,MAP,LIST),REGION=0M                     
//SYSLIB DD DSN=&LEHLQ..SCEELKED,DISP=SHR                               
//       DD DSN=SYS1.LPALIB,DISP=SHR                                   
//DTLIB DD DSN=&DTLIB,DISP=SHR                                         
//SYSPRINT DD SYSOUT=*                                                 
//SYSLMOD DD DISP=SHR,DSN=&SORCLIB..LOAD(&MEM)                         
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))                             
//SYSLIN DD DSN=&SYSUID..MY.OBJ(&MEM),DISP=(OLD,PASS)                   
//*  INCLUDING A DEBUG TOOL LE EXIT (EQADBCXT, EQADDCXT, EQADICXT OR EQA
//*                                                                     
//*  IS OPTIONAL.  THE EXIT ENABLES STARTING DEBUG TOOL WITH THE       
//*  USER EXIT DATA SET UTILITY (ONE OF THE DEBUG TOOL ISPF UTILITIES) 
//*  //        DD *                                                     
//*   INCLUDE DTLIB(EQADBCXT)                                           
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 599
Location: Denmark

PostPosted: Fri Jun 17, 2022 7:38 pm
Reply with quote

As sergeyken suggest, first ask your System Support if PL/I is installed. If the answer is yes, then ask what procedures are set up for users, there really isn't any reason to make it more complicated for yourself than neccessary.
I have seen procedure names lile PLIC, PLICG, PLICL etc in my time.
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 1533

PostPosted: Fri Jun 17, 2022 10:36 pm
Reply with quote

Willy Jensen wrote:
As sergeyken suggest, first ask your System Support if PL/I is installed. If the answer is yes, then ask what procedures are set up for users, there really isn't any reason to make it more complicated for yourself than neccessary.
I have seen procedure names lile PLIC, PLICG, PLICL etc in my time.


I've seen about 10-15 types of the DSNAMEs of all those libraries needed for PL/I-related JCL procedures, compilation, load module linkage, and execution. Everything depends on the System Support for each particular company.

No one at this forum is able to guess: what are real DSNAMEs assigned for PL/I use at your company? If it is installed at all! icon_axe.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts Injecting HTTPHEADER parameters in th... PL/I & Assembler 0
No new posts Concurrent writing records to VSAM fr... JCL & VSAM 9
No new posts interactive cics program using CICS s... CICS 5
No new posts Getting TWA in CICS program while con... CICS 14
No new posts COBOL Program to search for five digi... COBOL Programming 4
Search our Forums:

Back to Top