JCL – Datensätze zählen und Record-Länge ermitteln

In meinen Projekten arbeite ich immer wieder auch auf dem IBM Mainframe unter z/OS. Dabei nutze ich die verfügbaren Bordmittel um erstellte Dateien zu überprüfen oder zu zählen. Dabei kommt das vielseitige DFSORT-Werkzeug ICETOOL zum Einsatz.

Im Folgenden beschreibe ich kurz, wie ICETOOL dazu verwendet werden kann, um eine Datei mit fester Satzlänge, deren Inhalt aber Datensätze mit variablen Längen sind, zu zählen, zu gruppieren und die Datensatzlängen in Byte zu ermitteln. Kenntnisse in der JCL werden vorausgesetzt.

Hier ein Auszug (die ersten 80 Byte)aus einer beispielhaften Eingabedatei. Die Recordlänge auf Dateiebene ist fix mit 650 Bytes angegeben:

Stellen 1 bis 80:
K14002012022920150120KDINFO                                   00001DINFO     01.
K14002012022920150120K000000000000800020                      00001KONT01    02.
K14002012022920150120K000000000000800020                      00002KONT02    12.
K14002012022920150120K000000000000800020                      00003KONT04    08.
K14002012022920150120K000000000000800020                      00004GPKT01    03.
K14002012022920150120K000000000000800020                      00005ANTR      04.
K14002012022920150120K000000000000800020                      00006BETZIE    01.
K14002012022920150120K000000000000800020                      00007KONSB     01.
K14002012022920150120K000000000000800020                      00008KONSB     01.
K14002012022920150120K000000000001100020                      00001KONT01    02.

Und hier die Stellen 81 bis 160:

00;T;00400;00000;00046;                                                         
00;000000008                               ;000000008      ;0000000020;00046;004
00;X;?         ;X;X;X;X;X;H;K;?         ;?         ;?    ;?    ;?    ;N;X;?     
00;N;?;?         ;? ;?         ;?          ;?    ;?                ;?  ;?       
00;0013765367;00099;?      ;?;?    ;                                            
00;0000000;0003365367;00043;0000000008;00046;00000;EUR; 0000005000000,00;01.01.1
00;0000000010;0003365367;00043;                                                 
00;0000000004;00043;F;A;30.12.2013; 0000000000000,00;EUR;?            ; 00000000
00;0000001234;00043;K;A;30.12.2013; 0000000000000,00;EUR;?            ; 00000000
00;000000011                               ;000000011      ;0000000020;00046;004
00;X;?         ;X;X;X;X;X;H;K;?         ;?         ;?    ;?    ;?    ;N;X;?     
00;N;?;?         ;? ;?         ;?          ;?    ;?                ;?  ;?       
00;0013604472;00077;?      ;?;?    ;                                            
00;0000000;0003604472;00043;0000000171;00046;00000;USD; 0000000273541,16;01.01.1
00;0000000010;0012604492;00056;                                                 
00;0000008066;00043;K;A;30.12.2013; 0000000000000,00;EUR;?            ; 00000000

Wie man erkennen kann, ist der Feldtrenner das Semikolon. Aus Platzgründen sind die Stellen 181 bis 650 hier nicht dargestellt. Es soll lediglich veranschaulicht werden, dass es sich um Datensätze mit variabler Länge handelt und dass als Feldtrenner das Semikolon verwendet wird. Lediglich im Headerbereich (die ersten 82 Byte jeder Zeile) ist eine Struktur mit festen Positionen definiert.

Nun zur JCL. Im folgenden Code-Abschnitt ist der komplette Job dargestellt.

//EMKREC  JOB (666045,BA),                              
//        'MOELLER',                                    
//        CLASS=K,                                      
//        NOTIFY=&SYSUID,                               
//        MSGCLASS=T                                    
//ICETOOL EXEC PGM=ICETOOL                              
//TOOLMSG DD   SYSOUT=*                                 
//DFSMSG  DD   SYSOUT=*                                 
//TOOLIN  DD   *                                        
  DISPLAY FROM(CNTIN1) LIST(CNTOUT) -                   
  NOHEADER ON(72,15,CH) ON(VLEN,N01)                    
/*                                                      
//CNTIN1 DD DSN=BAT.PO.K.KE.BEST.N0229.V0121001,DISP=SHR
//CNTOUT DD DSN=Y0E6844.CNTOUT.N0229.TEMP,              
//          DISP=(NEW,CATLG,DELETE),                    
//          RECFM=FB                                    
//ICETOOL EXEC PGM=ICETOOL                               
//TOOLMSG DD   SYSOUT=*                                  
//DFSMSG  DD   SYSOUT=*                                  
//TOOLIN  DD   *                                         
  OCCUR FROM(CNTIN2) LIST(CNTOU2) -                      
  TITLE('ZAEHLER REPORT') DATE TIME -                
  HEADER('SATZART - VERSION -  RECL') ON(1,25,CH) BLANK -
  HEADER('ANZAHL') ON(VALCNT)                            
/*                                                       
//CNTIN2 DD DSN=Y0E6844.CNTOUT.N0229.TEMP,DISP=SHR       
//CNTOU2 DD DSN=Y0E6844.CNTOUT.N0229.COUNT,              
//          DISP=(NEW,CATLG,DELETE),                     
//          RECFM=FB                                     
//DELEMKCT EXEC PGM=IEFBR14                              
//SYSPRINT DD  SYSOUT=*                                  
//DELDATA  DD  DSN=Y0E6844.CNTOUT.N0229.TEMP,            
//     DISP=(OLD,DELETE,DELETE) 
/*

In diesem Job wird das ICETOOL zwei mal aufgerufen. Im ersten Aufruf wird die Eingabedatei mit dem Operator DISPLAY aufgerufen. Hierbei wird die Eingabedatei nach dem Gruppierungsmerkmal ab Stelle 72 für 15 Stellen gruppiert.

NOHEADER ON(72,15,CH)

Der Parameter NOHEADER im Operator DISPLAY sorgt dafür, dass keine Überschriften in die Ausgabedatei geschrieben werden. Im zweiten Parameter

ON(VLEN,N01)

wird die Recordlänge ermittelt. Als Ergebnis wird eine Datei erstellt, in der für jede Zeile der Eingabedatei, die Satzart und die Recordlänge ermittelt wird.

Mit dem zweiten Aufruf des ICETOOL wird die soeben erstellte Datei nach Satzarten gruppiert. Hierfür wird der Operator

OCCUR FROM(CNTIN2) LIST(CNTOU2) -

verwendet.  Zusätzlich wird noch eine Berichtsüberschrift hinzugefügt und die Anzahl der Satzarten mit dem Parameter

HEADER('ANZAHL') ON(VALCNT)

ermittelt. Die Ergebnisdatei sieht wie folgt aus:

ZAEHLER REPORT        02/04/15        08:55:28
                                                  
SATZART - VERSION -  RECL            ANZAHL       
-------------------------   ---------------       
 ANTR      04.00      312             37244       
 BETRM1    04.00      220             52460       
 BETRM2    02.00      231              3674       
 BETRT1    04.00      236             53975       
 BETRT2    02.00      303               788       
 BETRT3    02.00      303               759       
 BETRT4    02.00      519               231       
 BETRT5    02.00      189            116482       
 BETRT7    02.00      175              8424       
 BETZIE    01.00      115             78338       
 BEW       01.00      154                 8       
 BEWEG     02.00      195                97       
.....

Zu guter letzt wird im Job die temporär erstellte Datei mit dem Programm IEFBR14 gelöscht.