JCL Job for z / OS为数据集执行SRCHFOR或LISTCAT

问题描述 投票:1回答:2

我需要创建一个批处理作业来搜索数据集列表;我需要通过FTP提交工作。

我是JCL的一个完整的新手,所以任何人都可以用SRCHFOR命令帮我做一个示例工作吗?

我还需要为IDCAMS实用程序命令Listcat创建一个作业

我会非常感谢一份工作。

jobs mainframe zos jcl tso
2个回答
2
投票

鉴于您表示您不知道从哪里开始是一个示例作业,它将在第一步中运行搜索并运行IDCAMS以在第二步中执行Listcat。

这个link有一些关于SuperC的有用信息。

注意:您的工作卡需要根据您的安装要求进行自定义。此作业可以通过FTP提交,后续输出也可以通过FTP检索。

//SRCHCMP  JOB (CCCCCCCC),'HOGSTROM',                   
//             MSGLEVEL=(1,1),                          
//             MSGCLASS=O,                              
//             CLASS=A,                                 
//             NOTIFY=&SYSUID                           
//*                                                     
//SRCHFOR  EXEC PGM=ISRSUPC,PARM=('SRCHCMP,ANYC')       
//NEWDD   DD   DSN=USER1.TEST.CNTL,DISP=SHR             
//OUTDD   DD   SYSOUT=*                                 
//SYSIN   DD     *                                      
 SRCHFOR 'NEWDD'                                        
/*                                                      
//*                                                     
//IDCAMS   EXEC PGM=IDCAMS                              
//SYSPRINT DD SYSOUT=*                                  
//SYSIN    DD *                                         
 LISTCAT ENTRY('USER1.TEST.CNTL') ALL                   
/*                                                      
//     

第一步的输出如下所示:

ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF  
FOR z/OS         2019/02/26  22.45    PAGE     1               LINE-#   
SOURCE SECTION                    SRCH DSN: USER1.TEST.CNTL             


                                                                                                                                      SRCHFOR                     --------- STRING(S) FOUND
-------------------                                                          

      8  //NEWDD   DD   DSN=USER1.TEST.CNTL,DISP=SHR                                                                                
     11   SRCHFOR 'NEWDD'                                                                                                           
                                                                                                                                       ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF
FOR z/OS         2019/02/26  22.45    PAGE     2             
     SEARCH-FOR SUMMARY SECTION            SRCH DSN: USER1.TEST.CNTL                                                                
                                                                                                                                     LINES-FOUND  LINES-PROC  MEMBERS-W/LNS  MEMBERS-WO/LNS  COMPARE-COLS 
LONGEST-LINE                                                  
        2         4436            1             41           1:80           80                                                      
                                                                                                                                     PROCESS OPTIONS USED: ANYC                                            

                                                                                                                                     THE FOLLOWING PROCESS STATEMENTS (USING COLUMNS 1:72) WERE PROCESSED: 

    SRCHFOR 'NEWDD'

IDCAMS Listcat的输出如下所示:

IDCAMS  SYSTEM SERVICES                                           TIME: 22:45:34        02/26/19     PAGE      1 

 LISTCAT ENTRY('USER1.TEST.CNTL') ALL                                                                            
NONVSAM ------- USER1.TEST.CNTL                                                                                  
     IN-CAT --- CATALOG.T70502                                                                                   
     HISTORY                                                                                                     
       DATASET-OWNER-----(NULL)     CREATION--------2017.089                                                     
       RELEASE----------------2     EXPIRATION------0000.000                                                     
       ACCOUNT-INFO-----------------------------------(NULL)                                                     
     SMSDATA                                                                                                     
       STORAGECLASS -----CLASS2     MANAGEMENTCLASS---(NULL)                                                     
       DATACLASS --------(NULL)     LBACKUP ---0000.000.0000                                                     
     ENCRYPTIONDATA                                                                                              
       DATA SET ENCRYPTION-----(NO)                                                                              
     VOLUMES                                                                                                     
       VOLSER------------T70502     DEVTYPE------X'3010200F'     FSEQN------------------0                        
     ASSOCIATIONS--------(NULL)                                                                                  
     ATTRIBUTES                                                                                                  
IDCAMS  SYSTEM SERVICES                                           TIME: 22:45:34        02/26/19     PAGE      2 
         THE NUMBER OF ENTRIES PROCESSED WAS:                                                                    
                   AIX -------------------0                                                                      
                   ALIAS -----------------0                                                                      
                   CLUSTER ---------------0                                                                      
                   DATA ------------------0                                                                      
                   GDG -------------------0                                                                      
                   INDEX -----------------0                                                                      
                   NONVSAM ---------------1                                                                      
                   PAGESPACE -------------0                                                                      
                   PATH ------------------0                                                                      
                   SPACE -----------------0                                                                      
                   USERCATALOG -----------0                                                                      
                   TAPELIBRARY -----------0                                                                      
                   TAPEVOLUME ------------0                                                                      
                   TOTAL -----------------1                                                                      
         THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0                                                        
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0                                                        

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0                                                

这是一个reference to the SuperC utility


-1
投票

另一种方法,如果你更熟悉Unix的一面,那就是考虑通过USS或TSO做这些事情。对于USS(Unix系统服务),请查看我的博客:

https://makingdeveloperslivesbetter.wordpress.com/2019/01/06/mvs-utilities-an-almost-real-world-example/

如果不出意外,阅读各种实用程序的代码(它们大多只是shell脚本)将帮助您从Unix概念映射到z / OS(MVS)概念。

© www.soinside.com 2019 - 2024. All rights reserved.