I can not compile my program PL1 V3.R7.M0

IBM Mainframe Forums -> PL/I & Assembler

Quick References

View previous topic :: View next topic

Author

Message

Miguel Fernandez

New User

Joined: 05 Dec 2016
Posts: 14
Location: Spain

Hi

My PLI program V3.R7.M0 do not compile.. Why ? I am following strictly the statements of Programmin Guide Chapter 3 page 124 Compile, prelink, link-edit, and run (IBMZCPLG) The resulted are telling the following

Code:

Comando de entrada ===> DESPL ===> RSE
Condición Información para rutinas activas
Condición Información para CEEPHTLR (DSA dirección 1EC6CF70)
CIB Dirección: 1EC6DC70
Condición actual:
CEE3250C El sistema o usuario de terminación anormal S028 R = 04000200 fue emitida.
Ubicación:
Unidad de Programa: Entrada [color=red]CEEPHTLR[/color]: Declaración CEEPHTLR: Offset: 00000916
CEE3DMP V1 R10.0: condiciones de tratamiento dio lugar a la condición de no controlada.
ASID: 0026 ID de trabajo: Trabajo JOB09969 nombre: Nombre PLICPLG Paso: PLI USERI

Robert Sample

Global Moderator

Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

Posted: Tue Dec 06, 2016 8:44 pm

S028 in the manual is listed as a paging error (among other possibilities). You might try running with a larger region size.

Bill Woodger

Moderator Emeritus

Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

Posted: Tue Dec 06, 2016 8:50 pm

Here's a description of S028: www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ieah700/m014810.htm Are there other messages in the output for your step? Have you succeeded in doing this before? Has someone else succeeded? Are you using the same process as they? Otherwise, it is for your technical support. I doubt there is much you can do about it yourself.

prino

Senior Member

Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

Posted: Wed Dec 07, 2016 4:45 am

Enterprise PL/I, especially when you're compiling large programs with OPT(3) is very resource hungry. Try compiling with REGION=0M. And next time post your JCL and job output. And Enterprise PL/I V3.7.0 is no longer supported...

Miguel Fernandez

New User

Joined: 05 Dec 2016
Posts: 14
Location: Spain

Hi all

According to suggestions and recommendations, I have changed by increasing the size of the region from zero to 39M, the result improved, with a RC code = 12 and the message

Code:

IEW4000I FETCH FOR MODULE IBM3TBY FROM DDNAME STEPLIB FAILED BECAUSE INSUFFICIENT STORAGE WAS AVAILABLE.

I am copying the following output listing.

Code:

1 J E S 2 J O B L O G -- S Y S T E M S Y S 2 -- N O D E N 1
0
10.03.51 JOB00010 ---- WEDNESDAY, 07 DEC 2016 ----
10.03.51 JOB00010 IRR010I USERID MIGUEL IS ASSIGNED TO THIS JOB.
10.03.51 JOB00010 ICH70001I MIGUEL LAST ACCESS AT 10:02:02 ON WEDNESDAY, DECEMBER 7, 2016
10.03.51 JOB00010 $HASP373 PLICPLG STARTED - INIT 3 - CLASS C - SYS SYS2
10.03.51 JOB00010 IEF403I PLICPLG - STARTED - TIME=10.03.51
10.03.53 JOB00010 IEW4000I FETCH FOR MODULE IBM3TBY FROM DDNAME STEPLIB FAILED BECAUSE INSUFFICIENT STORAGE WAS AVAILABLE.
10.03.53 JOB00010 CSV031I LIBRARY ACCESS FAILED FOR MODULE IBM3TBY , RETURN CODE 14, REASON CODE 26110021, DDNAME STEPLIB
10.03.54 JOB00010 - --TIMINGS (MINS.)-- -----PAGING COUNTS----
10.03.54 JOB00010 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
10.03.54 JOB00010 -PLI 12 3567 0 .00 .00 .0 32873 SYSTEM 0 0 0 0
10.03.54 JOB00010 -PLKED FLUSH 0 0 .00 .00 .0 0 SYSTEM 0 0 0 0
10.03.54 JOB00010 -LKED FLUSH 0 0 .00 .00 .0 0 SYSTEM 0 0 0 0
10.03.54 JOB00010 -GO FLUSH 0 0 .00 .00 .0 0 SYSTEM 0 0 0 0
10.03.54 JOB00010 IEF404I PLICPLG - ENDED - TIME=10.03.54
10.03.54 JOB00010 -PLICPLG ENDED. NAME- TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
10.03.54 JOB00010 $HASP395 PLICPLG ENDED
0------ JES2 JOB STATISTICS ------
- 07 DEC 2016 JOB EXECUTION DATE
- 75 CARDS READ
- 311 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 15 SYSOUT SPOOL KBYTES
- 0.05 MINUTES EXECUTION TIME
1 //PLICPLG JOB 'EXECUTE PLI', JOB00010
// CLASS=C,MSGCLASS=X,REGION=39M,TIME=720,MSGLEVEL=(1,1)
//*********************************************************************
//*
//* IBM Enterprise PL/I for z/OS
//* Version 3 Release 7 Modification 0
//*
//* COMPILE, PRELINK, LINK-EDIT AND RUN A PL/I PROGRAM
//*
//* PARAMETER DEFAULT VALUE USAGE
//* LNGPRFX IEL370 PREFIX FOR LANGUAGE DATA SET NAMES
//* LIBPRFX CEE PREFIX FOR LIBRARY DATA SET NAMES
//* SYSLBLK 3200 BLKSIZE FOR OBJECT DATA SET
//* PLANG EDCPMSGE PRELINKER MESSAGES MEMBER NAME
//* GOPGM GO MEMBER NAME FOR LOAD MODULE
//*
2 // SET LNGPRFX=IEL370
3 // SET LIBPRFX=CEE
4 // SET SYSLBLK=3200
5 // SET PLANG=EDCPMSGE
6 // SET GOPGM=GO
//*********************************************************************
//* COMPILE STEP
//*********************************************************************
//* PLI EXEC PGM=IBMZPLI,PARM='OBJECT,OPTIONS'
7 //PLI EXEC PGM=IBMZPLI,
// PARM='OPTIONS,SOURCE,COMPILE,LIST,MAP'
//* PARM='INSOURCE,OPTIONS,SOURCE,COMPILE,LIST,MAP'
8 //STEPLIB DD DSN=&LNGPRFX..SIBMZCMP,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=IEL370.SIBMZCMP,DISP=SHR
9 // DD DSN=&LIBPRFX..SCEERUN,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEERUN,DISP=SHR
10 // DD DSN=&LIBPRFX..SCEERUN2,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEERUN2,DISP=SHR
11 // DD DSN=&LIBPRFX..ACEEMOD1,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.ACEEMOD1,DISP=SHR
12 //SYSPRINT DD SYSOUT=*
13 //SYSOUT DD SYSOUT=*
14 //SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSALLDA,
// SPACE=(CYL,(1,1)),DCB=(LRECL=80,BLKSIZE=&SYSLBLK)
IEFC653I SUBSTITUTION JCL - DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1)),DCB=(LRECL=80,
BLKSIZE=3200)
15 //SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSALLDA,
// SPACE=(1024,(200,50),,CONTIG,ROUND),DCB=BLKSIZE=1024
16 //PLI.SYSIN DD DSN=MIGUEL.JCLS(PGMPLI),DISP=SHR
/*
//*********************************************************************
//* PRE-LINK-EDIT STEP
//*********************************************************************
17 //PLKED EXEC PGM=EDCPRLK,COND=(8,LT,PLI)
18 //STEPLIB DD DSN=&LIBPRFX..SCEERUN,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEERUN,DISP=SHR
19 //SYSMSGS DD DSN=&LIBPRFX..SCEEMSGP(&PLANG),DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEEMSGP(EDCPMSGE),DISP=SHR
20 //SYSLIB DD DUMMY
21 //SYSMOD DD DSN=&&PLNK,DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=&SYSLBLK)
IEFC653I SUBSTITUTION JCL - DSN=&&PLNK,DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,
BLKSIZE=3200)
22 //SYSIN DD DSN=*.PLI.SYSLIN,DISP=(OLD,DELETE)
23 //SYSPRINT DD SYSOUT=*
24 //SYSOUT DD SYSOUT=*
//*********************************************************************
//* LINK-EDIT STEP
//*********************************************************************
25 //LKED EXEC PGM=IEWL,PARM='XREF',COND=((8,LT,PLI),(8,LE,PLKED))
26 //SYSLIB DD DSN=&LIBPRFX..SCEELKED,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEELKED,DISP=SHR
27 //SYSPRINT DD SYSOUT=*
28 //SYSLIN DD DSN=*.PLKED.SYSMOD,DISP=(OLD,DELETE)
29 // DD DDNAME=SYSIN
30 //SYSLMOD DD DSN=&&GOSET(&GOPGM),DISP=(MOD,PASS),UNIT=SYSALLDA,
// SPACE=(1024,(50,20,1))
IEFC653I SUBSTITUTION JCL - DSN=&&GOSET(GO),DISP=(MOD,PASS),UNIT=SYSALLDA,SPACE=(1024,(50,20,1))
31 //SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSALLDA,SPACE=(1024,(200,20)),
// DCB=BLKSIZE=1024
32 //SYSIN DD DUMMY
//*********************************************************************
//* RUN STEP
//*********************************************************************
33 //GO EXEC PGM=*.LKED.SYSLMOD,
// COND=((8,LT,PLI),(8,LE,PLKED),(8,LE,LKED))
34 //STEPLIB DD DSN=&LIBPRFX..SCEERUN,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEERUN,DISP=SHR
35 //SYSPRINT DD SYSOUT=*
36 //CEEDUMP DD SYSOUT=*
37 //SYSUDUMP DD SYSOUT=*
38 //GO.SYSIN DD DSN=MIGUEL.JCLS(PGMPLI),DISP=SHR
ICH70001I MIGUEL LAST ACCESS AT 10:02:02 ON WEDNESDAY, DECEMBER 7, 2016
IEF236I ALLOC. FOR PLICPLG PLI
IEF237I 0A92 ALLOCATED TO STEPLIB
IEF237I 0A82 ALLOCATED TO
IEF237I 0A82 ALLOCATED TO
IEF237I 0A8C ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSOUT
IGD100I 0A9E ALLOCATED TO DDNAME SYSLIN DATACLAS ( )
IGD100I 0A94 ALLOCATED TO DDNAME SYSUT1 DATACLAS ( )
IEF237I 0A94 ALLOCATED TO SYSIN
IEW4000I FETCH FOR MODULE IBM3TBY FROM DDNAME STEPLIB FAILED BECAUSE INSUFFICIENT STORAGE WAS AVAILABLE.
CSV031I LIBRARY ACCESS FAILED FOR MODULE IBM3TBY , RETURN CODE 14, REASON CODE 26110021, DDNAME STEPLIB
IEF237I JES2 ALLOCATED TO SYS00001
IEF285I MIGUEL.PLICPLG.JOB00010.D0000109.? SYSOUT
IEF142I PLICPLG PLI - STEP WAS EXECUTED - COND CODE 0012
IEF285I IEL370.SIBMZCMP KEPT
IEF285I VOL SER NOS= ZAPRD2.
IEF285I CEE.SCEERUN KEPT
IEF285I VOL SER NOS= ZARES2.
IEF285I CEE.SCEERUN2 KEPT
IEF285I VOL SER NOS= ZARES2.
IEF285I CEE.ACEEMOD1 KEPT
IEF285I VOL SER NOS= ZADIS3.
IEF285I MIGUEL.PLICPLG.JOB00010.D0000101.? SYSOUT
IEF285I MIGUEL.PLICPLG.JOB00010.D0000102.? SYSOUT
IEF285I SYS16342.T100351.RA000.PLICPLG.LOADSET.H01 PASSED
IEF285I VOL SER NOS= IMCST1.
IEF285I SYS16342.T100351.RA000.PLICPLG.SYSUT1.H01 DELETED
IEF285I VOL SER NOS= ZAPRD4.
IEF285I MIGUEL.JCLS KEPT
IEF285I VOL SER NOS= ZAPRD4.
IEF373I STEP/PLI /START 2016342.1003
IEF374I STEP/PLI /STOP 2016342.1003 CPU 0MIN 00.39SEC SRB 0MIN 00.42SEC VIRT 84K SYS 352K EXT 38088K SYS 12844K
IEF202I PLICPLG PLKED - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I PLICPLG PLKED - STEP WAS NOT EXECUTED.
IEF373I STEP/PLKED /START 2016342.1003
IEF374I STEP/PLKED /STOP 2016342.1003 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 0K SYS 0K EXT 0K SYS 0K
IEF202I PLICPLG LKED - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I PLICPLG LKED - STEP WAS NOT EXECUTED.
IEF373I STEP/LKED /START 2016342.1003
IEF374I STEP/LKED /STOP 2016342.1003 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 0K SYS 0K EXT 0K SYS 0K
IEF202I PLICPLG GO - STEP WAS NOT RUN BECAUSE OF CONDITION CODES
IEF272I PLICPLG GO - STEP WAS NOT EXECUTED.
IEF373I STEP/GO /START 2016342.1003
IEF374I STEP/GO /STOP 2016342.1003 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 0K SYS 0K EXT 0K SYS 0K
IEF237I 0A9E ALLOCATED TO SYS00002
IEF285I SYS16342.T100354.RA000.PLICPLG.R0100563 KEPT
IEF285I VOL SER NOS= IMCST1.
IEF285I SYS16342.T100351.RA000.PLICPLG.LOADSET.H01 DELETED
IEF285I VOL SER NOS= IMCST1.
IEF375I JOB/PLICPLG /START 2016342.1003
IEF376I JOB/PLICPLG /STOP 2016342.1003 CPU 0MIN 00.39SEC SRB 0MIN 00.42SEC
15655-H31 IBM(R) Enterprise PL/I for z/OS V3.R7.M0 (Built:20080924) 2016.12.07 10:03:53 Page 1
- Options Specified
0 Install:
0 Command: OPTIONS,SOURCE,COMPILE,LIST,MAP
0 Install:
- Options Used
0 NOAGGREGATE
ARCH(5)
NOATTRIBUTES
BACKREG(5)
BIFPREC(15)
BLANK('05'x)
BLKOFF
CEESTART(FIRST)
CHECK( NOCONFORMANCE NOSTORAGE )
CMPAT(V2)
CODEPAGE(01140)
NOCOMMON
NOCOMPACT
NOCOMPILE(S)
NOCOPYRIGHT
CSECT
CSECTCUT(4)
CURRENCY('$')
NODBCS
DD('SYSPRINT','SYSIN','SYSLIB','SYSPUNCH','SYSLIN','SYSADATA','SYSXMLSD','SYSDEBUG')
DECIMAL( FOFLONASGN NOFORCEDSIGN )
DEFAULT(IBM ASSIGNABLE NOINITFILL NONCONNECTED UPPERINC
DESCRIPTOR DESCLOCATOR DUMMY(ALIGNED) ORDINAL(MIN)
BYADDR RETURNS(BYADDR) LINKAGE(OPTLINK) NORETCODE
NOINLINE ORDER NOOVERLAP NONRECURSIVE ALIGNED
NULL370 BIN1ARG EVENDEC SHORT(HEXADEC)
EBCDIC HEXADEC NATIVE NATIVEADDR E(HEXADEC))
DISPLAY( WTO )
NODLLINIT
NOEXIT
EXTRN(FULL)
FLAG(W)
FLOAT( AFP(NOVOLATILE) NODFP )
FLOATINMATH(ASIS)
NOGONUMBER
NOGRAPHIC
INCAFTER(PROCESS(""))
NOINCDIR
NOINCPDS
NOINITAUTO
NOINITBASED
NOINITCTL
NOINITSTATIC
NOINSOURCE
NOINTERRUPT
15655-H31 IBM(R) Enterprise PL/I for z/OS TEST: PROCEDURE OPTIONS(MAIN); 2016.12.07 10:03:53 Page 2
0 LANGLVL(SAA2 OS)
LIMITS( EXTNAME(7) FIXEDBIN(31,31) FIXEDDEC(15,15) NAME(100) )
LINECOUNT(60)
NOLINEDIR
+ LIST
NOMACRO
+ MAP
MARGINI(' ')
+ MARGINS(2,72)
MAXMEM(1048576)
MAXMSG(W 250)
MAXNEST( BLOCK(17) DO(17) IF(17) )
MAXSTMT(4096)
MAXTEMP(50000)
NOMDECK
NONAME
NAMES('@#$' '@#$')
NATLANG(ENU)
NONEST
NOT('^')
NUMBER
OBJECT
NOOFFSET
OPTIMIZE(0)
+ OPTIONS(DOC)
OR('|')
NOPP
NOPPCICS
NOPPMACRO
NOPPINCLUDE
NOPPSQL
NOPPTRACE
PRECTYPE(ANS)
PREFIX(CONVERSION FIXEDOVERFLOW INVALIDOP OVERFLOW
NOSIZE NOSTRINGRANGE NOSTRINGSIZE NOSUBSCRIPTRANGE
UNDERFLOW ZERODIVIDE)
NOPROCEED(S)
PROCESS(DELETE)
QUOTE('"')
REDUCE
NORENT
RESEXP
RESPECT()
RULES(IBM BYNAME NODECSIZE EVENDEC ELSEIF GOTO NOLAXBIF NOLAXCTL
LAXDCL NOLAXDEF LAXIF LAXINOUT LAXLINK LAXMARGINS
LAXPUNC LAXQUAL LAXSEMI LAXSTG NOLAXSTRZ MULTICLOSE UNREF)
NOSCHEDULER
NOSEMANTIC(S)
NOSERVICE
+ SOURCE
SPILL(512)
STATIC(SHORT)
NOSTDSYS
NOSTMT
NOSTORAGE
STRINGOFGRAPHIC(GRAPHIC)
NOSYNTAX(S)
15655-H31 IBM(R) Enterprise PL/I for z/OS TEST: PROCEDURE OPTIONS(MAIN); 2016.12.07 10:03:53 Page 3
0 SYSPARM('')
SYSTEM(MVS)
NOTERMINAL
NOTEST
TUNE(5)
USAGE( ROUND(IBM) UNSPEC(IBM) )
WIDECHAR(BIGENDIAN)
WINDOW(1950)
WRITABLE
XINFO(NODEF NOMSG NOSYM NOSYN NOXMI NOXML)
XML( CASE(UPPER) )
NOXREF
15655-H31 IBM(R) Enterprise PL/I for z/OS TEST: PROCEDURE OPTIONS(MAIN); 2016.12.07 10:03:53 Page 4
0 Compiler Source
0 Line.File
0 1.0 TEST: PROCEDURE OPTIONS(MAIN); 00010000
2.0 DCL MUNDO CHAR(20); 00020006
3.0 MUNDO='HOLA MUNDO'; 00040005
4.0 PUT SKIP LIST(MUNDO); 00050003
5.0 END TEST; 00070000
15655-H31 IBM(R) Enterprise PL/I for z/OS TEST: PROCEDURE OPTIONS(MAIN); 2016.12.07 10:03:53 Page 5
- Block Name List
0 Number Name
0 1 TEST
15655-H31 IBM(R) Enterprise PL/I for z/OS V3.R7.M0 (Built:20080924) 2016.12.07 10:03:53 Page 1
- Compiler Messages
0 Message Line.File Message Description
0 IBM1936I S Invocation of compiler backend ended abnormally.
- File Reference Table
0 File Included From Name
0 0 MIGUEL.JCLS(PGMPLI)
- Component Return Code Messages (Total/Suppressed) Time
0 Compiler 12 2 / 1 0 secs
0 End of compilation of TEST
Unable to load phase: IBM3TBY

prino

Senior Member

Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

Posted: Wed Dec 07, 2016 3:26 pm

Let's guess, actually, let's be sure: You're running this job on a z/OS system under Hercules! Why don't you run with REGION=0M, after all you're the boss... And nobody of a sound mind would ever write something as imbecile as "Hello, world!"...

Nic Clouston

Global Moderator

Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

Posted: Wed Dec 07, 2016 5:41 pm

Hi Prino - I would when testing setup. But maybe I am of unsound mind! Miguel - please use the code tags when posting somegthing from the screen - code, jcl , control cards, data. Spacing is preserved and can be vital in some queries. Coded for you THIS time.

Miguel Fernandez

New User

Joined: 05 Dec 2016
Posts: 14
Location: Spain

Hi

Yes, I am with HERCULES ...

I did it with REGION = 0 and the result was worse.

Code:

1 J E S 2 J O B L O G -- S Y S T E M S Y S 2 -- N O D E N 1
0
12.59.53 JOB00034 ---- WEDNESDAY, 07 DEC 2016 ----
12.59.53 JOB00034 IRR010I USERID MIGUEL IS ASSIGNED TO THIS JOB.
12.59.54 JOB00034 ICH70001I MIGUEL LAST ACCESS AT 12:40:15 ON WEDNESDAY, DECEMBER 7, 2016
12.59.54 JOB00034 $HASP373 PLICPLG STARTED - INIT 1 - CLASS A - SYS SYS2
12.59.54 JOB00034 IEF403I PLICPLG - STARTED - TIME=12.59.54
12.59.59 JOB00034 IEF450I PLICPLG PLI - ABEND=S028 U0000 REASON=04000200 842
842 TIME=12.59.59
12.59.59 JOB00034 - --TIMINGS (MINS.)-- -----PAGING COUNTS----
12.59.59 JOB00034 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
12.59.59 JOB00034 -PLI *S028 5419 0 .03 .00 .0 75787 SYSTEM 0 0 0 0
12.59.59 JOB00034 -PLKED FLUSH 0 0 .00 .00 .0 0 SYSTEM 0 0 0 0
12.59.59 JOB00034 -LKED FLUSH 0 0 .00 .00 .0 0 SYSTEM 0 0 0 0
12.59.59 JOB00034 -GO FLUSH 0 0 .00 .00 .0 0 SYSTEM 0 0 0 0
12.59.59 JOB00034 IEF404I PLICPLG - ENDED - TIME=12.59.59
12.59.59 JOB00034 -PLICPLG ENDED. NAME- TOTAL TCB CPU TIME= .03 TOTAL ELAPSED TIME= .0
12.59.59 JOB00034 $HASP395 PLICPLG ENDED
0------ JES2 JOB STATISTICS ------
- 07 DEC 2016 JOB EXECUTION DATE
- 78 CARDS READ
- 2,085 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 169 SYSOUT SPOOL KBYTES
- 0.09 MINUTES EXECUTION TIME
1 //PLICPLG JOB 'EXECUTE PLI', JOB00034
// CLASS=A,MSGCLASS=X,REGION=0M
//*********************************************************************
//*
//* IBM Enterprise PL/I for z/OS
//* Version 3 Release 7 Modification 0
//*
//* COMPILE, PRELINK, LINK-EDIT AND RUN A PL/I PROGRAM
//*
//* PARAMETER DEFAULT VALUE USAGE
//* LNGPRFX IEL370 PREFIX FOR LANGUAGE DATA SET NAMES
//* LIBPRFX CEE PREFIX FOR LIBRARY DATA SET NAMES
//* SYSLBLK 3200 BLKSIZE FOR OBJECT DATA SET
//* PLANG EDCPMSGE PRELINKER MESSAGES MEMBER NAME
//* GOPGM GO MEMBER NAME FOR LOAD MODULE
//*
2 // SET LNGPRFX=IEL370
3 // SET LIBPRFX=CEE
4 // SET SYSLBLK=3200
5 // SET PLANG=EDCPMSGE
6 // SET GOPGM=GO
//*********************************************************************
//* COMPILE STEP
//*********************************************************************
7 //PLI EXEC PGM=IBMZPLI,PARM='OBJECT,OPTIONS'
//* PLI EXEC PGM=IBMZPLI,
//* PARM='OPTIONS,SOURCE,COMPILE,LIST,MAP'
//* PARM='INSOURCE,OPTIONS,SOURCE,COMPILE,LIST'
8 //STEPLIB DD DSN=&LNGPRFX..SIBMZCMP,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=IEL370.SIBMZCMP,DISP=SHR
9 // DD DSN=&LIBPRFX..SCEERUN,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEERUN,DISP=SHR
10 // DD DSN=&LIBPRFX..SCEERUN2,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEERUN2,DISP=SHR
11 // DD DSN=&LIBPRFX..ACEEMOD1,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.ACEEMOD1,DISP=SHR
12 //SYSPRINT DD SYSOUT=*
13 //SYSOUT DD SYSOUT=*
14 //SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSALLDA,
// SPACE=(CYL,(1,1)),DCB=(LRECL=80,BLKSIZE=&SYSLBLK)
IEFC653I SUBSTITUTION JCL - DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1)),DCB=(LRECL=80,
BLKSIZE=3200)
15 //SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSALLDA,
// SPACE=(1024,(200,50),,CONTIG,ROUND),DCB=BLKSIZE=1024
16 //CEEOPTS DD *
17 //PLI.SYSIN DD DSN=MIGUEL.JCLS(PGMPLI),DISP=SHR
/*
//*********************************************************************
//* PRE-LINK-EDIT STEP
//*********************************************************************
18 //PLKED EXEC PGM=EDCPRLK,COND=(8,LT,PLI)
19 //STEPLIB DD DSN=&LIBPRFX..SCEERUN,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEERUN,DISP=SHR
20 //SYSMSGS DD DSN=&LIBPRFX..SCEEMSGP(&PLANG),DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEEMSGP(EDCPMSGE),DISP=SHR
21 //SYSLIB DD DUMMY
22 //SYSMOD DD DSN=&&PLNK,DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=&SYSLBLK)
IEFC653I SUBSTITUTION JCL - DSN=&&PLNK,DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1)),DCB=(RECFM=FB,LRECL=80,
BLKSIZE=3200)
23 //SYSIN DD DSN=*.PLI.SYSLIN,DISP=(OLD,DELETE)
24 //SYSPRINT DD SYSOUT=*
25 //SYSOUT DD SYSOUT=*
//*********************************************************************
//* LINK-EDIT STEP
//*********************************************************************
26 //LKED EXEC PGM=IEWL,PARM='XREF',COND=((8,LT,PLI),(8,LE,PLKED))
27 //SYSLIB DD DSN=&LIBPRFX..SCEELKED,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEELKED,DISP=SHR
28 //SYSPRINT DD SYSOUT=*
29 //SYSLIN DD DSN=*.PLKED.SYSMOD,DISP=(OLD,DELETE)
30 // DD DDNAME=SYSIN
31 //SYSLMOD DD DSN=&&GOSET(&GOPGM),DISP=(MOD,PASS),UNIT=SYSALLDA,
// SPACE=(1024,(50,20,1))
IEFC653I SUBSTITUTION JCL - DSN=&&GOSET(GO),DISP=(MOD,PASS),UNIT=SYSALLDA,SPACE=(1024,(50,20,1))
32 //SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSALLDA,SPACE=(1024,(200,20)),
// DCB=BLKSIZE=1024
33 //SYSIN DD DUMMY
//*********************************************************************
//* RUN STEP
//*********************************************************************
34 //GO EXEC PGM=*.LKED.SYSLMOD,
// COND=((8,LT,PLI),(8,LE,PLKED),(8,LE,LKED))
35 //STEPLIB DD DSN=&LIBPRFX..SCEERUN,DISP=SHR
IEFC653I SUBSTITUTION JCL - DSN=CEE.SCEERUN,DISP=SHR
36 //SYSPRINT DD SYSOUT=*
37 //CEEDUMP DD SYSOUT=*
38 //SYSUDUMP DD SYSOUT=*
39 //GO.SYSIN DD DSN=MIGUEL.JCLS(PGMPLI),DISP=SHR
ICH70001I MIGUEL LAST ACCESS AT 12:40:15 ON WEDNESDAY, DECEMBER 7, 2016
IEF236I ALLOC. FOR PLICPLG PLI
IEF237I 0A92 ALLOCATED TO STEPLIB
IEF237I 0A82 ALLOCATED TO
IEF237I 0A82 ALLOCATED TO
IEF237I 0A8C ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSOUT
IGD100I 0A9E ALLOCATED TO DDNAME SYSLIN DATACLAS ( )
IGD100I 0A94 ALLOCATED TO DDNAME SYSUT1 DATACLAS ( )
IEF237I JES2 ALLOCATED TO CEEOPTS
IEF237I 0A94 ALLOCATED TO SYSIN
IEF237I JES2 ALLOCATED TO STDOUT
IEF237I JES2 ALLOCATED TO CEEDUMP
IEF285I MIGUEL.PLICPLG.JOB00034.D0000111.? SYSOUT
IEF285I MIGUEL.PLICPLG.JOB00034.D0000110.? SYSOUT
IEF472I PLICPLG PLI - COMPLETION CODE - SYSTEM=028 USER=0000 REASON=04000200
IEF285I IEL370.SIBMZCMP KEPT
IEF285I VOL SER NOS= ZAPRD2.
IEF285I CEE.SCEERUN KEPT
IEF285I VOL SER NOS= ZARES2.
IEF285I CEE.SCEERUN2 KEPT
IEF285I VOL SER NOS= ZARES2.
IEF285I CEE.ACEEMOD1 KEPT
IEF285I VOL SER NOS= ZADIS3.
IEF285I MIGUEL.PLICPLG.JOB00034.D0000102.? SYSOUT
IEF285I MIGUEL.PLICPLG.JOB00034.D0000103.? SYSOUT
IEF285I SYS16342.T125953.RA000.PLICPLG.LOADSET.H01 PASSED
IEF285I VOL SER NOS= IMCST1.
IEF285I SYS16342.T125953.RA000.PLICPLG.SYSUT1.H01 DELETED
IEF285I VOL SER NOS= ZAPRD4.
IEF285I MIGUEL.PLICPLG.JOB00034.D0000101.? SYSIN
IEF285I MIGUEL.JCLS KEPT
IEF285I VOL SER NOS= ZAPRD4.
IEF373I STEP/PLI /START 2016342.1259
IEF374I STEP/PLI /STOP 2016342.1259 CPU 0MIN 02.17SEC SRB 0MIN 00.44SEC VIRT 88K SYS 352K EXT 57768K SYS 13404K
IEF272I PLICPLG PLKED - STEP WAS NOT EXECUTED.
IEF373I STEP/PLKED /START 2016342.1259
IEF374I STEP/PLKED /STOP 2016342.1259 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 0K SYS 0K EXT 0K SYS 0K
IEF272I PLICPLG LKED - STEP WAS NOT EXECUTED.
IEF373I STEP/LKED /START 2016342.1259
IEF374I STEP/LKED /STOP 2016342.1259 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 0K SYS 0K EXT 0K SYS 0K
IEF272I PLICPLG GO - STEP WAS NOT EXECUTED.
IEF373I STEP/GO /START 2016342.1259
IEF374I STEP/GO /STOP 2016342.1259 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 0K SYS 0K EXT 0K SYS 0K
IEF237I 0A9E ALLOCATED TO SYS00001
IEF285I SYS16342.T125959.RA000.PLICPLG.R0100587 KEPT
IEF285I VOL SER NOS= IMCST1.
IEF285I SYS16342.T125953.RA000.PLICPLG.LOADSET.H01 DELETED
IEF285I VOL SER NOS= IMCST1.
IEF375I JOB/PLICPLG /START 2016342.1259
IEF376I JOB/PLICPLG /STOP 2016342.1259 CPU 0MIN 02.17SEC SRB 0MIN 00.44SEC
15655-H31 IBM(R) Enterprise PL/I for z/OS V3.R7.M0 (Built:20080924) 2016.12.07 12:59:55 Page 1
- Options Specified
0 Install:
0 Command: OBJECT,OPTIONS
0 Install:
- Options Used
0 NOAGGREGATE
ARCH(5)
NOATTRIBUTES
BACKREG(5)
BIFPREC(15)
BLANK('05'x)
BLKOFF
CEESTART(FIRST)
CHECK( NOCONFORMANCE NOSTORAGE )
CMPAT(V2)
CODEPAGE(01140)
NOCOMMON
NOCOMPACT
NOCOMPILE(S)
NOCOPYRIGHT
CSECT
CSECTCUT(4)
CURRENCY('$')
NODBCS
DD('SYSPRINT','SYSIN','SYSLIB','SYSPUNCH','SYSLIN','SYSADATA','SYSXMLSD','SYSDEBUG')
DECIMAL( FOFLONASGN NOFORCEDSIGN )
DEFAULT(IBM ASSIGNABLE NOINITFILL NONCONNECTED UPPERINC
DESCRIPTOR DESCLOCATOR DUMMY(ALIGNED) ORDINAL(MIN)
BYADDR RETURNS(BYADDR) LINKAGE(OPTLINK) NORETCODE
NOINLINE ORDER NOOVERLAP NONRECURSIVE ALIGNED
NULL370 BIN1ARG EVENDEC SHORT(HEXADEC)
EBCDIC HEXADEC NATIVE NATIVEADDR E(HEXADEC))
DISPLAY( WTO )
NODLLINIT
NOEXIT
EXTRN(FULL)
FLAG(W)
FLOAT( AFP(NOVOLATILE) NODFP )
FLOATINMATH(ASIS)
NOGONUMBER
NOGRAPHIC
INCAFTER(PROCESS(""))
NOINCDIR
NOINCPDS
NOINITAUTO
NOINITBASED
NOINITCTL
NOINITSTATIC
NOINSOURCE
NOINTERRUPT
15655-H31 IBM(R) Enterprise PL/I for z/OS TEST: PROCEDURE OPTIONS(MAIN); 2016.12.07 12:59:55 Page 2
0 LANGLVL(SAA2 OS)
LIMITS( EXTNAME(7) FIXEDBIN(31,31) FIXEDDEC(15,15) NAME(100) )
LINECOUNT(60)
NOLINEDIR
NOLIST
NOMACRO
NOMAP
MARGINI(' ')
+ MARGINS(2,72)
MAXMEM(1048576)
MAXMSG(W 250)
MAXNEST( BLOCK(17) DO(17) IF(17) )
MAXSTMT(4096)
MAXTEMP(50000)
NOMDECK
NONAME
NAMES('@#$' '@#$')
NATLANG(ENU)
NONEST
NOT('^')
NUMBER
OBJECT
NOOFFSET
OPTIMIZE(0)
+ OPTIONS(DOC)
OR('|')
NOPP
NOPPCICS
NOPPMACRO
NOPPINCLUDE
NOPPSQL
NOPPTRACE
PRECTYPE(ANS)
PREFIX(CONVERSION FIXEDOVERFLOW INVALIDOP OVERFLOW
NOSIZE NOSTRINGRANGE NOSTRINGSIZE NOSUBSCRIPTRANGE
UNDERFLOW ZERODIVIDE)
NOPROCEED(S)
PROCESS(DELETE)
QUOTE('"')
REDUCE
NORENT
RESEXP
RESPECT()
RULES(IBM BYNAME NODECSIZE EVENDEC ELSEIF GOTO NOLAXBIF NOLAXCTL
LAXDCL NOLAXDEF LAXIF LAXINOUT LAXLINK LAXMARGINS
LAXPUNC LAXQUAL LAXSEMI LAXSTG NOLAXSTRZ MULTICLOSE UNREF)
NOSCHEDULER
NOSEMANTIC(S)
NOSERVICE
NOSOURCE
SPILL(512)
STATIC(SHORT)
NOSTDSYS
NOSTMT
NOSTORAGE
STRINGOFGRAPHIC(GRAPHIC)
NOSYNTAX(S)
15655-H31 IBM(R) Enterprise PL/I for z/OS TEST: PROCEDURE OPTIONS(MAIN); 2016.12.07 12:59:55 Page 3
0 SYSPARM('')
SYSTEM(MVS)
NOTERMINAL
NOTEST
TUNE(5)
USAGE( ROUND(IBM) UNSPEC(IBM) )
WIDECHAR(BIGENDIAN)
WINDOW(1950)
WRITABLE
XINFO(NODEF NOMSG NOSYM NOSYN NOXMI NOXML)
XML( CASE(UPPER) )
NOXREF
CEE3250C The system or user abend S028 R=04000200 was issued.
From entry point PLIRUN27 at compile unit offset +0000009A at entry offset +0000009A at address 1F36E872.
1CEE3DMP V1 R10.0: Condition processing resulted in the unhandled condition. 12/07/16 12:59:56 PM Page: 1
ASID: 001A Job ID: JOB00034 Job name: PLICPLG Step name: PLI UserID: MIGUEL

CEE3845I CEEDUMP Processing started.

Information for enclave IBMZPLI

Information for thread 8000000000000000

Traceback:
DSA Entry E Offset Statement Load Mod Program Unit Service Status
1 CEEHDSP +00004B34 CEEPLPKA CEEHDSP HLE7750 Call
2 CEEPHTLR +00000916 CEEPLPKA CEEPHTLR HLE7750 Exception
3 CEEVH2OS +0000006E CEEPLPKA CEEVH2OS HLE7750 Call
4 dllinit +0000016E CELHV003 HLE7750 Call
5 CEEVROND +000011F4 CEEPLPKA Call
6 CEEBMBR +000014EE CEEPLPKA CEEBMBR HLE7750 Call
7 CEEBADDM +00000370 CEEPLPKA CEEBADDM HLE7750 Call
8 CEEVH2OS +0000006E CEEPLPKA CEEVH2OS HLE7750 Call
9 fetch +000006A4 CELHV003 HLE7750 Call
10 CEEVROND +000011F4 CEEPLPKA Call
11 PLIRUN27 +0000009A IBMZINN Call
12 IBMZRBE +000001D4 IBMZINN Call
13 IBMZCTL +00001836 IBMZINN Call
14 IBMZINN +00000078 IBMZINN Call
15 @@FECBIBMZINN
-0064A60E Call
16 IBMZPLI +00000130 IBMZPLI Call
17 IBMPMINV +000004DE IBMPEV11 IBMPMINV Call
18 CEEEV011 +00000202 IBMPEV11 CEEEV011 Call
19 CEEBBEXT +000001B8 CEEPLPKA CEEBBEXT HLE7750 Call

DSA DSA Addr E Addr PU Addr PU Offset Comp Date Compile Attributes
1 1EC6D378 1DDC5428 1DDC5428 +00004B34 20080319 CEL
2 1EC6CF70 1DE79F78 1DE79F78 +00000916 20080319 CEL
3 1EC6CDB0 1DEBF6D8 1DEBF6D8 +0000006E 20080319 CEL
4 1F36A3A0 1E5F23D0 1E5F23D0 +0000016E 20080320 C/C++ XPLINK EBCDIC HFP
5 1F36A460 1DEC0400 1DEC03A8 +0000124C 20080319 CEL XPLINK EBCDIC HFP
6 1EC6C960 1DD9F178 1DD9F178 +000014EE 20080319 CEL
7 1EC6C868 1DD93948 1DD93948 +00000370 20080319 CEL
8 1EC6C6A8 1DEBF6D8 1DEBF6D8 +0000006E 20080319 CEL
9 1F36A520 1E6CB970 1E6CB970 +000006A4 20080320 C/C++ XPLINK EBCDIC HFP
10 1F36A720 1DEC0400 1DEC03A8 +0000124C 20080319 CEL XPLINK EBCDIC HFP
11 1EC6C3A0 1F36E7D8 1F36E7D8 +0000009A 20080715 C/C++
12 1EC6C250 1F38A958 1F38A958 +000001D4 20080513 ENT PL/I EBCDIC HFP
13 1EC6A600 1F372BC0 1F372BC0 +00001836 20080807 ENT PL/I EBCDIC HFP
14 1EC6A558 1F36F770 1F36F770 +00000078 20071115 ENT PL/I EBCDIC HFP
15 1EC6A468 1ECEBC48 1ECEBC48 -0064A60E Õ Íö LIBRARY
16 1EC6A3A0 1DD010B8 1DD010B8 +00000130 20070827 ENT PL/I EBCDIC HFP
17 1EC6A168 1DFE8370 1DFE8370 +000004DE 20080319 LIBRARY
18 1EC6A0D8 1DEFA000 1DEFA000 +00000202 20080730 LIBRARY
19 1EC6A018 1DD94088 1DD94088 +000001B8 20080319 CEL

Condition Information for Active Routines
Condition Information for CEEPHTLR (DSA address 1EC6CF70)
CIB Address: 1EC6DC70
Current Condition:
CEE3250C The system or user abend S028 R=04000200 was issued.
Location:
Program Unit: CEEPHTLR Entry: CEEPHTLR Statement: Offset: +00000916
1CEE3DMP V1 R10.0: Condition processing resulted in the unhandled condition. 12/07/16 12:59:56 PM Page: 2
ASID: 001A Job ID: JOB00034 Job name: PLICPLG Step name: PLI UserID: MIGUEL

Machine State:
ILC..... 0006 Interruption Code..... 0011
PSW..... 078D0600 9DE7A88E
GPR0..... 9ECEC018 GPR1..... 9ECEC018 GPR2..... 00000001 GPR3..... 00000D3F
GPR4..... 1E9E0330 GPR5..... 20A8E040 GPR6..... 00000048 GPR7..... 00000000
GPR8..... 00000001 GPR9..... 00000000 GPR10.... 204252E0 GPR11.... 9DE79F78
GPR12.... 1DD15A10 GPR13.... 1EC6CF70 GPR14.... 00000000 GPR15.... 2042A0C8
FPC...... F0000000
FPR0..... 485847F9 BC22C482 FPR1..... 40B504F3 33F9DE65
FPR2..... 00000028 00000000 FPR3..... 40C90FDA A22168C2
FPR4..... 4116A09E 667F3BCD FPR5..... 00100000 00000000
FPR6..... 3FD45F30 6DC9C883 FPR7..... 7FFFFFFF FFFFFFFF
FPR8..... 00000000 00000000 FPR9..... 00000000 00000000
FPR10.... 00000000 00000000 FPR11.... 00000000 00000000
FPR12.... 00000000 00000000 FPR13.... 00000000 00000000
FPR14.... 00000000 00000000 FPR15.... 00000000 00000000
ABEND code: 00028000 Reason code: 04000200

Storage dump near condition, beginning at location: 1DE7A87E
+000000 1DE7A87E 9140F000 4780B916 50405000 47F0B91C D2075000 4010A758 00011E25 5850D0C4 |j 0.....& &..0..K.&. .x......&.D|
GPREG STORAGE:
Storage around GPR0 (1ECEC018)
-0020 1ECEBFF8 40404040 01000004 FFF80B60 00000000 00000000 FFFFFFAC 41000000 1ECEBC48 | .....8.-....................|
+0000 1ECEC018 209F8000 00C601A0 00000000 22000000 00000000 00000000 00000000 00000000 |.....F..........................|
+0020 1ECEC038 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
Storage around GPR1 (1ECEC018)
-0020 1ECEBFF8 40404040 01000004 FFF80B60 00000000 00000000 FFFFFFAC 41000000 1ECEBC48 | .....8.-....................|
+0000 1ECEC018 209F8000 00C601A0 00000000 22000000 00000000 00000000 00000000 00000000 |.....F..........................|
+0020 1ECEC038 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
Storage around GPR2 (00000001)
-0001 00000000 Inaccessible storage.
+001F 00000020 Inaccessible storage.
+003F 00000040 Inaccessible storage.
Storage around GPR3 (00000D3F)
-0020 00000D1F Inaccessible storage.
+0000 00000D3F Inaccessible storage.
+0020 00000D5F Inaccessible storage.
Storage around GPR4 (1E9E0330)
-0020 1E9E0310 Inaccessible storage.
+0000 1E9E0330 Inaccessible storage.
+0020 1E9E0350 Inaccessible storage.
Storage around GPR5 (20A8E040)
-0020 20A8E020 20A2C4C0 1F979CB0 20A6D640 1FDA46C8 20A6D640 1FDA4888 20A37B28 1F9366F0 |.sD..p...wO ...H.wO ...h.t#..l.0|
+0000 20A8E040 20425AA4 203D6058 00000000 2140CE94 00FF8000 FFFFFFFF 00000000 00000000 |..!u..-...... .m................|
+0020 20A8E060 00000000 00000000 00000000 2140BED0 20A95AB0 00000000 20A48840 2033E0A8 |............. ...z!......uh ...y|
Storage around GPR6 (00000048)
-0020 00000028 Inaccessible storage.
+0000 00000048 Inaccessible storage.
+0020 00000068 Inaccessible storage.
Storage around GPR7 (00000000)
+0000 00000000 Inaccessible storage.
+0020 00000020 Inaccessible storage.
+0040 00000040 Inaccessible storage.
Storage around GPR8 (00000001)
-0001 00000000 Inaccessible storage.
+001F 00000020 Inaccessible storage.
+003F 00000040 Inaccessible storage.

Coded again - next time it will be locked

Miguel Fernandez

New User

Joined: 05 Dec 2016
Posts: 14
Location: Spain

Posted: Wed Dec 07, 2016 6:19 pm

Hi Nic Clouston I would like to use the BBcode format. Can you tell me which are the tags HTML that you use to leave it as 3270 green screen. kind regards

Miguel Fernandez

New User

Joined: 05 Dec 2016
Posts: 14
Location: Spain

Code:

Look at me ... this is a BBcode test ...

Robert Sample

Global Moderator

Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

Posted: Wed Dec 07, 2016 7:22 pm

Have you done an IPL with CLPA specified in your IEASYSxx PARMLIB member? That might resolve your issue.

Garry Carroll

Senior Member

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

Posted: Wed Dec 07, 2016 7:23 pm

Miguel, If you look above the area where you're keying. you'll see a "code" button. Click this before pasting your 3270 screenshot and again after. This will put the tags in the correct place. Garry.

Miguel Fernandez

New User

Joined: 05 Dec 2016
Posts: 14
Location: Spain

Definitely

My problem is solved with more memory, I have executed the PLICPLG job in another z / OS with PL1 V4.R5.M0 and runs very well. The problem I have when execute PL1 version V3.R7.M0 is that I have no initiators to run in REGION greater than 39M.

Thanks all by your technical support

Code:

********************************* TOP OF DATA **********************************
J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E

06.23.44 JOB07532 ---- WEDNESDAY, 07 DEC 2016 ----
06.23.44 JOB07532 IRR010I USERID IMCS IS ASSIGNED TO THIS JOB.
06.23.45 JOB07532 ICH70001I IMCS LAST ACCESS AT 05:45:20 ON WEDNESDAY, DECE
06.23.45 JOB07532 $HASP373 PLICPLG STARTED - INIT 1 - CLASS A - SYS
06.23.46 JOB07532 - -----TIMINGS (MINS.)--
06.23.46 JOB07532 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB C
06.23.46 JOB07532 -PLI 00 10176 122 .00 .00
06.23.46 JOB07532 -PLKED 04 72 19 .00 .00
06.23.47 JOB07532 -LKED 00 346 53 .00 .00
06.23.47 JOB07532 -GO 00 21 7 .00 .00
06.23.47 JOB07532 -PLICPLG ENDED. NAME- TOTAL TCB CPU TIM
06.23.47 JOB07532 $HASP395 PLICPLG ENDED - RC=0004
------ JES2 JOB STATISTICS ------
07 DEC 2016 JOB EXECUTION DATE
81 CARDS READ
782 SYSOUT PRINT RECORDS
********************************* TOP OF DATA **********************************
SDSF OUTPUT DISPLAY PLICPLG JOB07532 DSID 3 LINE 0 COLUMNS 02- 81
COMMAND INPUT ===> SCROLL ===> CSR
********************************* TOP OF DATA **********************************
1 //PLICPLG JOB 'EXECUTE PLI',
// CLASS=A,MSGCLASS=X,REGION=80M
//*
//********************************************************************
//* Licensed Materials - Property of IBM
//* 5655-W67
//* Copyright IBM Corp. 1999, 2015 All Rights Reserved
//*
//* US Government Users Restricted Rights - Use, duplication or
//* disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
//*
//********************************************************************
//*
//* IBM Enterprise PL/I for z/OS
//* Version 4 Release 5 Modification 0
//*
//* COMPILE, PRELINK, LINK-EDIT AND RUN A PL/I PROGRAM
//*
5655-W67 IBM(R) Enterprise PL/I for z/OS V4.R5.M0 (Built:20160829)
Options Specified
Install:
Command: OBJECT,OPTIONS,SOURCE,COMPILE,LIST,MAP
Install:
Options Used
NOAGGREGATE
ARCH(7)
5655-W67 IBM(R) Enterprise PL/I for z/OS TEST: PROCEDURE OPTIONS(MAIN);
Compiler Source
Line.File
1.0 TEST: PROCEDURE OPTIONS(MAIN);
2.0 DCL MUNDO CHAR(36);
3.0 MUNDO='HI,.... IF YOU READ YOU CAN EAT ....';
4.0 PUT SKIP LIST(MUNDO);
5.0 END TEST;
5655-W67 IBM(R) Enterprise PL/I for z/OS TEST: PROCEDURE OPTIONS(MAIN);
Block Name List
Number Name
1 TEST
5655-W67 IBM(R) Enterprise PL/I for z/OS TEST: PROCEDURE OPTIONS(MAIN);

OFFSET OBJECT CODE LINEÑ FILEÑ P S E U D O A S S E M B L Y L I S
* * * * * E N D O F A U T O M A T I C
5655-W67 IBM(R) Enterprise PL/I for z/OS TEST: PROCEDURE OPTIONS(MAIN);
No Compiler Messages
File Reference Table
File Included From Name
0 IMCS.IMG.JCLS(PGMPLI)
Component Return Code Messages (Total/Suppressed) Time
Compiler 0 1 / 1 0 secs
End of compilation of TEST
******************************** BOTTOM OF DATA ********************************
========================================================================
| ESD Map of Defined and Long Names |
========================================================================

OUTPUT
*REASON FILE ID ESD NAME INPUT NAME

00001 CEESTART CEESTART
00001 CEEMAIN CEEMAIN
00001 ***TEST1 ***TEST1
00001 ***TEST2 ***TEST2
00001 TEST TEST

*REASON: P=Ñpragma or reserved S=matches short name R=RENAME card
L=C Library U=UPCASE option D=Default

============ E N D O F P R E - L I N K A G E M A P =============
******************************** BOTTOM OF DATA ********************************
z/OS V2 R2 BINDER 06:23:46 WEDNESDAY DECEMBER 7, 2016
BATCH EMULATOR JOB(PLICPLG ) STEP(LKED ) PGM= IEWL
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 0.

----------------------
MESSAGE SUMMARY REPORT
----------------------
TERMINAL MESSAGES (SEVERITY = 16)
NONE

SEVERE MESSAGES (SEVERITY = 12)
NONE

ERROR MESSAGES (SEVERITY = 08)
NONE
SDSF OUTPUT DISPLAY PLICPLG JOB07532 DSID 106 LINE 0 COLUMNS 02- 81
COMMAND INPUT ===> SCROLL ===> CSR
********************************* TOP OF DATA **********************************
HI,.... IF YOU READ YOU CAN EAT ....
******************************** BOTTOM OF DATA ********************************

Miguel Fernandez

New User

Joined: 05 Dec 2016
Posts: 14
Location: Spain

Difference between run with REGION = 39M (Here I lack memory)
and REGION = 80M

Code:

EDIT MIGUEL.JCLS(PLICPLG) - 01.16 Member PLICPLG saved
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //PLICPLG JOB 'EXECUTE PLI',
000002 // CLASS=A,MSGCLASS=X,REGION=39M
000003 //*********************************************************************
000004 //*
000005 //* IBM Enterprise PL/I for z/OS
000006 //* Version 3 Release 7 Modification 0

VIEW IMCS.IMG.JCLS(PLICPLG) - 01.04 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //PLICPLG JOB 'EXECUTE PLI',
000002 // CLASS=A,MSGCLASS=X,REGION=80M
000003 //*********************************************************************
000004 //*
000005 //* IBM Enterprise PL/I for z/OS
000006 //* Version 4 Release 5 Modification 0
000007 //*
000008 //* COMPILE, PRELINK, LINK-EDIT AND RUN A PL/I PROGRAM
000009 //*

View previous topic :: :: View next topic

View Bookmarks
All times are GMT + 6 Hours

Forum Index -> PL/I & Assembler

Topic		Forum	Replies
Similar Topics
	Compile Several JCL JOB Through one r...	CLIST & REXX	4
	Using API Gateway from CICS program	CICS	0
	Compile rexx code with jcl	CLIST & REXX	6
	C Compile time time stamps	Java & MQSeries	10
	DB2 Event passed to the Application P...	DB2	1

Search our Forums:

IBMMainframes.com is not an official and/or affiliated with IBM^® in anyway
Board Rules \| FAQ \| Downloads \| Wiki \| SiteMap \| Contact Us