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

Facing issue in Run Edit Macro Job


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
pkmurali
Warnings : 1

Active User


Joined: 15 Dec 2005
Posts: 271

PostPosted: Mon Nov 22, 2021 8:05 am
Reply with quote

Hi all,

When i ran the program in TSO PGM1 i am not facing any issue. But when i ran in batch with below Job i faced S322. Looks like the JESYSMSG is getting lot of lines written . Also the CLASS and MSGCLASS might cause the issue. Please suggest what need to be modified in Job.

Code:

DDNAME      StepName    ProcStep    DSID    Owner       C    Dest                  Rec-Cnt
JESMSGLG    JES2                 2 xxxxxxx  U LOCAL                   35
JESJCL      JES2                 3 xxxxxxx  U LOCAL                   31
JESYSMSG    JES2                 4 xxxxxxx  U LOCAL               16,109
ISPLOG      RUNNEXT            102 xxxxxxx  U LOCAL                   11
SYSTSPRT    RUNNEXT            103 xxxxxxx  U LOCAL                   15


Code:

/TESTJOBL  JOB (01915,TPRST,,,BPLX),'PLANJOB',CLASS=H,     
//          MSGCLASS=U,NOTIFY=&SYSUID,TIME=1440             
//RUNNEXT  EXEC PGM=IKJEFT1B,DYNAMNBR=30,REGION=32M         
//ISPPROF  DD RECFM=FB,LRECL=80,SPACE=(CYL,(2,2,2))         
//ISPPLIB   DD DSN=SYS3.TISCO.ISPPLIB,DISP=SHR             
//ISPSLIB  DD DSN=SYS3.TISCO.ISPSLIB,DISP=SHR               
//         DD DSN=SYS1.ISF.SISFSLIB,DISP=SHR               
//         DD DSN=SYS1.ISP.SISPSENU,DISP=SHR               
//         DD DSN=SYS1.ISP.SISPSLIB,DISP=SHR               
//ISPTLIB  DD DSN=SYS1.ISF.SISFTLIB,DISP=SHR               
//         DD DSN=SYS3.TISCO.ISPTLIB,DISP=SHR               
//         DD DSN=SYS1.ISP.SISPTENU,DISP=SHR               
//ISPMLIB  DD DSN=SYS3.TISCO.ISPMLIB,DISP=SHR               
//         DD DSN=SYS1.ISF.SISFMLIB,DISP=SHR               
//         DD DSN=SYS1.ISP.SISPMENU,DISP=SHR               
//ISPLLIB  DD DSN=SYS3.TISCO.ISPPLIB,DISP=SHR               
//         DD DSN=SYS1.ISF.SISFPLIB,DISP=SHR               
//         DD DSN=SYS1.ISP.SISPPENU,DISP=SHR               
//ISPCTL1  DD SPACE=(CYL,1),RECFM=FB,LRECL=133             
//ISPLOG   DD SYSOUT=*,RECFM=FB,LRECL=133                   
//SYSEXEC  DD DSN=TPRS.REXX.TOOLS,DISP=SHR             
//         DD DSN=TPRS.TOOLS.EXEC,DISP=SHR                 
//SYSPROC  DD DSN=SYS3.TISCO.ISPCLIB,DISP=SHR               
//         DD DSN=SYS1.ISF.SISFEXEC,DISP=SHR               
//         DD DSN=SYS1.ISP.SISPCLIB,DISP=SHR               
//         DD DSN=SYS4.DBMS.CLIST,DISP=SHR                 
//SYSTSPRT DD SYSOUT=*                                     
//SYSPRINT DD SYSOUT=*                                     
//SYSTSIN  DD *                                             
ISPSTART CMD(%PGM1)                                         
ISPSTART CMD(%PGM2)                                         
ISPSTART CMD(%PGM3)                                         
//*ISPSTART CMD(%PGM4)                                     
//*ISPSTART CMD(%PGM5)     

Code:

   021                     TIME=20.55.03                                       
20.55.03 J0658179  TIDTRT01 ASID=011A                               --   TIMINGS
20.55.03 J0658179  TIDTRT02 JOBNAME  STEPNAME PROCSTEP    RC   EXCP       TCB   
20.55.03 J0658179  TIDTRT03 TESTJOBL RUNNEXT           *S322  29202       .17   
20.55.03 J0658179  IEF404I TESTJOBL - ENDED - TIME=20.55.03                     
20.55.03 J0658179  TIDTRT04 TESTJOBL ENDED.  NAME-TESTJOB              TOTAL TCB
20.55.03 J0658179  TIDTRT@@ TESTJOBL DB 00001180M 00008868K                     
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Mon Nov 22, 2021 2:54 pm
Reply with quote

S322 is cpu time exeeded. You do have TIME=1440, but that could have been overwritten by an SMF exiit.
What's in JESYSMSG, ISPLOG and SYSTSPRT?
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2023
Location: USA

PostPosted: Mon Nov 22, 2021 6:28 pm
Reply with quote

Willy Jensen wrote:
S322 is cpu time exeeded.

1% - the reason is a small default TIME= parameter; needs to be checked anyway.

99% - the reason is an endless loop caused by a wrong loop condition. A good chance that some condition in batch environment may be different from TSO online situation.

In any case: you need to add a sort of trace into your code to find out, which code part falls into a loop? Guessing is not a reasonable approach.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley

PostPosted: Mon Nov 22, 2021 10:31 pm
Reply with quote

re: "edit macro job"

(this is just a guess)

When you are running a batch job, there is no terminal to display a panel. In your program, you have to check for batch and avoid displaying a panel.

You are probable getting S322 because you displayed a panel and ISPF could not display it and entered a recovery routine. And the recovery routine also fails, and enters a recovery routine, (repeat forever).
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Tue Nov 23, 2021 1:01 am
Reply with quote

yes, and that should be obvious from the messages in the ISPLOG libref, which is why I asked the OP to check that.
Back to top
View user's profile Send private message
pkmurali
Warnings : 1

Active User


Joined: 15 Dec 2005
Posts: 271

PostPosted: Fri Nov 26, 2021 4:16 am
Reply with quote

Thanks willy jensen sergeyken & Pedro.
I haven't used any panels in my program.

When i see this JESYSMSG i got the below details. Please let me know what changes to be done to fix this issue.

Code:

IEFA111I TESTJOB IS USING THE FOLLOWING JOB RELATED SETTINGS:     
         SWA=ABOVE,TIOT SIZE=64K,DSENQSHR=DISALLOW,GDGBIAS=JOB     
IEF236I ALLOC. FOR  TESTJOB RUNNEXT                               
IGD101I SMS ALLOCATED TO DDNAME (ISPPROF )                         
        DSN (SYS21329.T173130.RA000.TESTJOB.R0135364    )         
        STORCLAS (NORMAL) MGMTCLAS (        ) DATACLAS (NULLDC)   
        VOL SER NOS= WKV0FC                                       


ISPLOG
Code:

********************************* TOP OF DATA ********************************
1      Time                *** ISPF transaction log ***                       
                                                                             
       17:31   Start of ISPF Log - - -  - Session # 1 ------------------------
       17:31      TSO     - Command  -  - %TEFR                               
       17:31      TSO     - Command  -  - %TNPROC                             
       17:31      TSO     - Command  -  - %TNPROC                             
       17:31      TSO     - Command  -  - %TNPROC                             
       17:31      TSO     - Command  -  - %TNPROC                             


sysprt
Code:

********************************* TOP OF DATA ************
READY                                                     
ISPSTART CMD(%TEFR)                                       
STARTTIME = 17:31:30                                     
******************************** BOTTOM OF DATA **********
Back to top
View user's profile Send private message
pkmurali
Warnings : 1

Active User


Joined: 15 Dec 2005
Posts: 271

PostPosted: Fri Nov 26, 2021 4:33 am
Reply with quote

Also, when i changed the CLASS=R, job completed successfully. But i am worried about why JESYSMSG is having huge Rec-cnt

Code:
JESMSGLG    JES2                 2 A693493  U LOCAL                   31   
JESJCL      JES2                 3 A693493  U LOCAL                   33   
JESYSMSG    JES2                 4 A693493  U LOCAL               76,962   
ISPLOG      RUNNEXT            102 A693493  U LOCAL                   20   
SYSTSPRT    RUNNEXT            103 A693493  U LOCAL                    8   
                                                                       
Back to top
View user's profile Send private message
pkmurali
Warnings : 1

Active User


Joined: 15 Dec 2005
Posts: 271

PostPosted: Fri Nov 26, 2021 4:38 am
Reply with quote

Abend reason in JESYSMSG
Code:
IEA848I NO DUMP WAS PRODUCED FOR THIS ABEND, DUE TO SYSTEM OR INSTALLATION REQUEST
IEF472I TESTJOB RUNNEXT - COMPLETION CODE - SYSTEM=322 USER=0000 REASON 00 REASON=00000000
IGD105I SYS21329.T173130.RA000.TESTJOB.R0135364      DELETED,   DDNAME=  DDNAME=ISPPROF   
Back to top
View user's profile Send private message
Willy Jensen

Active Member


Joined: 01 Sep 2015
Posts: 712
Location: Denmark

PostPosted: Fri Nov 26, 2021 2:05 pm
Reply with quote

Abend S322 is not a cause, it is a result of something else.
The messages in JESYSMSG are not errors, they are information. Are all the rest of the messages similar? That could indicate that you use a lot of temporary datasets. When you run the command in TSO online, do you see the same type and number of messages in your TSO JESYSMSG?
Since changing the jobclass allowed the job to run that would indicate a time limit for your original job class. You should be able to see the required cpu time in the job messages.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley

PostPosted: Fri Nov 26, 2021 11:42 pm
Reply with quote

1. re: "edit macro job"

A common error in a batch edit is that the macro does not "END" the edit session. As would happen in TSO, ISPF wants to then show you the editor panel. While you do not explicitly display a panel, your use of ISPF does show a panel. Show us your edit macro.

2. You are running a rexx exec. Add a TRACE statement; there might be an endless loop. Also, add a TRACE statement to your editor macro (TNPROC ??).

3. Also, your job shows this:
ISPSTART CMD(%PGM1)

While your sample output shows:
ISPSTART CMD(%TEFR)

You are showing stuff that does not go together and expecting us to divine what you are doing.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Query on edit primary command CLIST & REXX 5
No new posts Query on edit primary command CLIST & REXX 1
No new posts PRINTOUT macro PL/I & Assembler 0
No new posts Issue after ISPF copy to Linklist Lib... TSO/ISPF 1
Search our Forums:

Back to Top