IBM Mainframe Forum

by **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:

Select all

//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:

Select all

  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:

Select all

//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

by **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

by **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.

Select all

//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.

IBM Mainframe Forum

IKJEFT01 ISPF Batch Commands

IKJEFT01 ISPF Batch Commands

Re: IKJEFT01 ISPF Batch Commands

Re: IKJEFT01 ISPF Batch Commands