Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
Miguel Fernandez

New User


Joined: 05 Dec 2016
Posts: 14
Location: Spain

PostPosted: Tue Dec 06, 2016 8:30 pm    Post subject: I can not compile my program PL1 V3.R7.M0
Reply with quote

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
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7988
Location: Bellevue, IA

PostPosted: Tue Dec 06, 2016 8:44 pm    Post subject:
Reply with quote

S028 in the manual is listed as a paging error (among other possibilities). You might try running with a larger region size.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7306

PostPosted: Tue Dec 06, 2016 8:50 pm    Post subject: Reply to: I can not compile my program PL1 V3.R7.M0
Reply with quote

Here's a description of S028: http://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.
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1002
Location: Oostende, Belgium

PostPosted: Wed Dec 07, 2016 4:45 am    Post subject:
Reply with quote

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...
Back to top
View user's profile Send private message
Miguel Fernandez

New User


Joined: 05 Dec 2016
Posts: 14
Location: Spain

PostPosted: Wed Dec 07, 2016 3:02 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1002
Location: Oostende, Belgium

PostPosted: Wed Dec 07, 2016 3:26 pm    Post subject:
Reply with quote

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!"...
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1749
Location: UK

PostPosted: Wed Dec 07, 2016 5:41 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
Miguel Fernandez

New User


Joined: 05 Dec 2016
Posts: 14
Location: Spain

PostPosted: Wed Dec 07, 2016 5:42 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
Miguel Fernandez

New User


Joined: 05 Dec 2016
Posts: 14
Location: Spain

PostPosted: Wed Dec 07, 2016 6:19 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
Miguel Fernandez

New User


Joined: 05 Dec 2016
Posts: 14
Location: Spain

PostPosted: Wed Dec 07, 2016 7:18 pm    Post subject:
Reply with quote

Code:
Look at me ... this is a BBcode test ...
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7988
Location: Bellevue, IA

PostPosted: Wed Dec 07, 2016 7:22 pm    Post subject:
Reply with quote

Have you done an IPL with CLPA specified in your IEASYSxx PARMLIB member? That might resolve your issue.
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 992
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Wed Dec 07, 2016 7:23 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
Miguel Fernandez

New User


Joined: 05 Dec 2016
Posts: 14
Location: Spain

PostPosted: Wed Dec 07, 2016 7:40 pm    Post subject:
Reply with quote

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 ********************************
                                                                               
Back to top
View user's profile Send private message
Miguel Fernandez

New User


Joined: 05 Dec 2016
Posts: 14
Location: Spain

PostPosted: Wed Dec 07, 2016 7:57 pm    Post subject:
Reply with quote

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 //*                   
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us