Задание JCL для z / OS для выполнения SRCHFOR или LISTCAT для наборов данных - PullRequest
0 голосов
/ 25 февраля 2019

Мне нужно создать пакетное задание для поиска в списке наборов данных;Мне нужно отправить задание по FTP.

Я новичок в JCL, поэтому кто-нибудь может мне помочь с примером работы с командой SRCHFOR?

Мне также нужно создать задание для служебной команды IDCAMS Listcat

Я был бы очень благодарен только за пример задания.

Ответы [ 2 ]

0 голосов
/ 27 февраля 2019

Если вы указали, что не знаете, с чего начать, это пример задания, которое запустит поиск на первом шаге и запустит IDCAMS для выполнения Listcat на втором шаге.

Это ссылка содержит некоторую полезную информацию о 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                                                

Вот ссылка на утилиту SuperC

0 голосов
/ 25 февраля 2019

Другим подходом, если вы более знакомы с Unix-стороной дома, было бы рассмотреть возможность сделать это через USS или TSO.Что касается USS (Unix System Services), посмотрите мой блог:

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

Если ничего другого, вам поможет чтение кода для различных утилит (в основном это просто скрипты оболочки)сопоставление понятий Unix с понятиями z / OS (MVS).

...