Mainframe Tips, Tricks And Tutorials
225 FOLLOWERS
This is a Mainframe Tips, Tricks, And Tutorials Blog. Major topics covered are CICS, COBOL, DB2, IBM PCM VBA, JCL utilities, and more.
Mainframe Tips, Tricks And Tutorials
1w ago
To transfer a set of text files to a PDS as individual members, we need to create a batch file. Let us transfer two text files to PDS USERID.DDF.TOOL. So, put the below two lines in a file and save the batch file with “srl” extension. C:\Downloads\ASMEXIT.JCL text~'USERID.DDF.TOOL(ASMEXIT)'C:\Downloads\BUCKETS.JCL text~'USERID.DDF.TOOL(BUCKETS)' In the Mainframe IBM PCOM session ..read more
Mainframe Tips, Tricks And Tutorials
1M ago
When any step of a job requests exclusive control of a data set, with an exception of when the job is allowed to downgrade ENQs via the DSENQSHR specification, the system converts all requests for shared control of that data set within that job (DISP=SHR) to requests for exclusive control. One of two methods can be used to request exclusive control: DISP=NEW, DISP=MOD, or ..read more
Mainframe Tips, Tricks And Tutorials
2M ago
Let us assume we have a Batch JOB step which executes MAIN-PGM. Let us assume job step has below call chain. MAIN-PGM --> SUB-PGM1 --> SUB-PGM2 --> SUB-PGM3That is MAIN-PGM calls SUB-PGM1SUB-PGM1 program inturn calls SUB-PGM2SUB-PGM2 program inturn calls SUB-PGM3A run unit is a running set of one or more programs that communicate with each other by COBOL static or dynamic CALL ..read more
Mainframe Tips, Tricks And Tutorials
3M ago
GDGORDER keyword specifies the order in which the individual generation data sets (GDSs) will be concatenated. The values of Parameter are USECATLG, LIFO and FIFO. USECATLG - The GDS concatenation is ordered as specified in the GDG data set catalog entry. When the GDGORDER keyword is not specified, the concatenation order from the catalog definition of the GDG data set is used.& ..read more
Mainframe Tips, Tricks And Tutorials
5M ago
A typical mainframe Developer needs expertise in TSO/ISPF, JCL, VSAM, COBOL, DB2, CICS, Debugger such as Xpeditor, IBM debugger, REXX, MQ, SCM tools such as Endevor and Changeman, Job schedulers such Control-M, OPC, ESP Below are videos from various youtube channels which will help anyone to become Mainframe developer. Mainframe Basics What is a Mainframe https ..read more
Mainframe Tips, Tricks And Tutorials
6M ago
Assembler program to process SMF 30 subtype records 2 & 3 are given below. The input SMF file is in VBS record format. Format of the output record is given below. Between each field, there is a blank inserted. LPAR system id – 4 bytesInterval start time – 19 bytes (Format CCYY/MM/DD HH:MM:SS)Interval end time - 19 bytes (Format CCYY/MM/DD HH:MM:SS)Jobname - 08 bytesJobid ..read more
Mainframe Tips, Tricks And Tutorials
6M ago
Recently I tried to replace an Easytrieve program with SYNCSORT for performance reasons.The below Easytrieve program was running for 6 minutes and it issued 1,051,382 EXCP’s and consumed 15.84 CPU seconds.The input file had about 60 million records.FILE FILEIN IN-REC 1 244 A IN-FIELD1 212 1 A IN-FIELD2 213 11 N 4  ..read more
Mainframe Tips, Tricks And Tutorials
7M ago
Suppose you want to copy VSAM KSDS, AIX, PATH files for your testing needs. This involves following steps 1. Defining the KSDS file2. Load the data to the base cluster 3. Define the alternate index and corresponding path 4. Build the alternate index The below sample job uses IBM supplied utility ADRDSSU to dump the PROD.* files and restore them under TEST qualifier. The end result is PROD ..read more
Mainframe Tips, Tricks And Tutorials
1y ago
Let us say we have below COBOL working storage section table and we want to match all the employee numbers from this array to a DB2 table.01 W-EMP-COUNT PIC S9(04) COMP.01 W-EMP-LIST. 05 W-EMP-NUM OCCURS 1 TO 50 TIMES DEPENDING ON W-EMP-COUNT PIC X(05).Below SQL does exactly that WITH TEMP(IDX, T_EMP_NUM) AS (SELECT 1, LEFT(:W-EMP-LIST,5) FROM SYSIBM.SYSDUMMY1 UNION ..read more
Mainframe Tips, Tricks And Tutorials
1y ago
Below job does find and replace using TSO batch utility. //STEP01 EXEC PGM=IKJEFT01//SYSTSPRT DD SYSOUT=*//SYSPRINT DD SYSOUT=*//SYSTSIN DD * EDIT 'MY.DATA.SET' OLD NONUM CNTL VERIFY ON TOP C * 9999999 'LOG NO' 'LOG YES' ALL TOP C * 9999999 'INTO TABLE' 'RESUME YES INTO TABLE' ALL TOP C * 0000001 'RESUME YES INTO TABLE' 'REPLACE INTO TABLE' SAVE ..read more