IKJEFT01 ISPF Batch Commands



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

IKJEFT01 ISPF Batch Commands

Postby fperg » Thu Jan 25, 2018 11:04 pm

Hello

I've created a massive ISPF 3.14 dataset (batch) and just want to simply ISPF EDIT and Save it when done. ISPF Batch is not my best skill

My Job JCL used both ISPF (SISP) DD statements and without ... Errors received are not my friend

I believe I'm mixing Commands that aren't allowed together, not sure, and if you could just provide the command structure for to test, I can learn from that. Thanks so much in advance

Scenario #1: Batch Job JCL Input:

//SYSTSIN  DD   *                                  
    EDIT 'SYS7.INSTE01.IOA.V9002.OBSMEMBR' TEXT NONUM
    TOP                                              
    X ALL                                            
    F 'SRCH DSN' ALL                                
    F 'STRING(S) FOUND' ALL                          
    DEL X ALL                                        
    END SAVE      


Error Messages:

 EDIT 'SYS7.INSTE01.IOA.V9002.OBSMEMBR' TEXT NONUM
EDIT                                              
  TOP                                              
EDIT                                              
  X ALL                                            
IKJ56500I SUBCOMMAND X NOT FOUND                  
EDIT                                              
  F 'SRCH DSN' ALL
IKJ56716I EXTRANEOUS INFORMATION WAS IGNORED: ALL          
EDIT                                                        
  F 'STRING(S) FOUND' ALL                                  
IKJ56716I EXTRANEOUS INFORMATION WAS IGNORED: ALL          
EDIT                                                        
  DEL X ALL                                                
IKJ56701I MISSING SINGLE LINE NUMBER OR RESPECIFY LINE RANGE
IKJ56716I EXTRANEOUS INFORMATION WAS IGNORED: X ALL                            
EDIT                                                                            
  END SAVE                                                                      
IKJ52572I WARNING, DATA SET 'SYS7.INSTE01.IOA.V9002.OBSMEMBR' WILL BE SAVED WITHOUT PRINT CONTROL CHARACTERS
EDIT                                                                            
END    


Scenario #2: Batch Job JCL Input:

//SYSTSIN  DD   *
    EDIT 'SYS7.INSTE01.IOA.V9002.OBSMEMBR' TEXT NONUM
    TOP                                              
    ISREDIT MACRO                                    
        ISREDIT EXCLUDE ALL                      
        ISREDIT FIND 'SRCH DSN' ALL              
        ISREDIT FIND 'STRING(S) FOUND' ALL      
        ISREDIT DELETE X ALL                    
        ISREDIT END SAVE
fperg
 
Posts: 1
Joined: Thu Jan 25, 2018 10:47 pm
Has thanked: 0 time
Been thanked: 0 time

Re: IKJEFT01 ISPF Batch Commands

 

Re: IKJEFT01 ISPF Batch Commands

Postby Robert Sample » Fri Jan 26, 2018 12:39 am

I suspect you are invoking the native TSO Edit command instead of the ISPF Edit screen. Check here for more information on invoking batch ISPF: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.f54dg00/ispdg53.htm
Robert Sample
Global moderator
 
Posts: 3431
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 239 times

Re: IKJEFT01 ISPF Batch Commands

Postby willy jensen » Fri Jan 26, 2018 3:32 pm

Quick sample with everything inline. The ESTART member is because I cant offhand remember if EDIT can be part of the ISPSTART command.
//MAKE    EXEC PGM=IEBUPDTE,PARM=NEW                                      
//SYSPRINT DD SYSOUT=*                                                    
//SYSUT2   DD DISP=(,PASS),DSN=&&LIB,UNIT=VIO,                            
//            SPACE=(TRK,(1,1,1)),RECFM=FB,LRECL=80                        
//SYSIN    DD *                                                            
./ ADD NAME=ESTART                                                        
 address ispexec "EDIT DATASET('MY.TEST.LIB(ZECHO)') MACRO(E1)" /* rexx */
./ ADD NAME=E1                                                            
 /* rexx */                                                                
 Address Isredit "MACRO NOPROCESS"                                        
 Address Isredit                                                          
 "change all 'fox' 'dog'"                                                  
 "save"                                                                    
 "end"                                                                    
//*                                                                        
//EDIT     EXEC PGM=IKJEFT1B,PARM='ISPSTART CMD(%ESTART)'                  
//SYSEXEC  DD DISP=SHR,DSN=&&LIB                                          
//SYSTSPRT DD SYSOUT=*                                                    
//ISPMLIB  DD DISP=SHR,DSN=ISP.SISPMENU                                    
//ISPPLIB  DD DISP=SHR,DSN=ISP.SISPPENU                                    
//ISPSLIB  DD DISP=SHR,DSN=ISP.SISPSENU                                    
//ISPTLIB  DD DISP=SHR,DSN=ISP.SISPTENU                                    
//ISPPROF  DD UNIT=SYSDA,SPACE=(TRK,(5,5,4)),RECFM=FB,LRECL=80            
//ISPLOG   DD SYSOUT=*,RECFM=VA,LRECL=125,BLKSIZE=129                      
//ISPFILE  DD SYSOUT=*,RECFM=FB,LRECL=80,BLKSIZE=6240                      
//SYSTSIN  DD DUMMY                                                        

the thing to remember is that you must avoid screen displays, hence the SAVE before the END.

These users thanked the author willy jensen for the post:
vasanthz (Tue Jan 30, 2018 1:24 am)
willy jensen
 
Posts: 143
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 23 times


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post