REMOVING DUPLICATES FROM INPUT FILE AND WRITE DUPLICATES TO A FILE Â Â //SREMDUPL JOB (XXXXXXXX,,,,,XXXX),’ Â Â Â Â ‘, Â Â Â // Â Â Â Â Â Â CLASS=J,MSGCLASS=Y,NOTIFY=&SYSUID, Â Â //* THIS JOB SORTS THE INPUT FILE AND REMOVES Â Â Â Â //* WRITES DISTINCT Â RECORDS IN SORTOUT Â Â Â Â Â […]
Sort JCL to Remove duplicates Read More »
Is binding required when program does not refer a newly added column There are few tables in the system and a column is added to one of these tables. There is a COBDB2 program which accesses this table but is not referring to the newly added column, do we need to bind this program to
Is binding required when program does not refer a newly added column Read More »
COMMONLY USED CLIST COMMAND If you have heard a lot about CLIST but do not know where and how to start, here is a list of commonly used commands in CLIST. I have a separate section which give you a simple step by step process to start using CLIST or REXX programming. S.No Clist Command
Commonly Used CLIST Commands Read More »
I have created this section to host some good mainframe websites. If you own a website and would be interested in exchanging links with us then contact us at mainframewizard@gmail.com. Home
mainframe websites Read More »
Problem with SORT OUTRFIL and OUTREC Hi, Am facing one problem for below scenario. //STEP01  EXEC PGM=SYNCSORT                                      //SYSPRINT DD SYSOUT=*                                            //SYSOUT  DD SYSOUT=*                                            //SYSDUMP DD SYSOUT=*                                            //SORTIN  DD DSN=MLIFE24.VCSE.MIS.MISEXTRM(+0),DISP=SHR          —> lrecl size is 20476 and recfm is VB //PVALOUT DD DSN=TLIFE24.VCSED.MIS.PVAL2,                        //           DISP=(NEW,CATLG,DELETE),                            //           DATACLAS=DATAF,LRECL=3000                           //INQCOUT DD DSN=TLIFE24.VCSED.MIS.INQC2,                        //           DISP=(NEW,CATLG,DELETE),                            //           DATACLAS=DATAF,LRECL=3000                           //SYSIN   DD *                                                    SORT FIELDS=COPY            OUTFIL FNAMES=PVALOUT,INCLUDE=(67,4,CH,EQ,C’PVAL’)                OUTFIL FNAMES=INQCOUT,INCLUDE=(67,4,CH,EQ,C’INQC’)                  Â
Problem with SORT OUTRFIL and OUTREC Read More »
Compress PDS – abend SE37 There are times when we face SE37 abend while updating a PDS for members. One such situation is compile jobs which generates/updates load in loadlib. You may face such abend for the loadlib. The following may be helpful in resolving If a PDS is in use for a long time
Compress PDS – abend SE37 Read More »
UNSTRING DELIMITED ON OVERFLOW The following COBOL program depicts the use of UNSTRING DELIMITED ON OVERFLOW     01 WS-STRING1   PIC X(12) VALUE ‘GRACE HOPPER’.     01 WS-FIRST-NAME PIC X(05) VALUE SPACES.     01 WS-LAST-NAME  PIC X(05) VALUE SPACES.     ** ON OVERFLOW GIVES US THE OPTION TO
UNSTRING DELIMITED ON OVERFLOW Read More »
How to get the number of members in a PDS without opening it? How to get the number of members in a PDS without opening it? I was asked this question in an interview, How to count the number of members in a PDS, I did not have a clue, but I said, it can
How to get the number of members in a PDS without opening it? Read More »
DIFFERENCE BETWEEN SEARCH AND SEARCH ALL The following mainframe tutorial list down the basic differences between the COBOL SEARCH and SEARCH ALL. SEARCH SEARCH ALL 1) Used for sequential search in COBOL tables.                   1) Used for Binary search. 2) The entries do not need to  be in any order.                  2) The
DIFFERENCE BETWEEN COBOL SEARCH AND SEARCH ALL Read More »
I was facing sql code -804 while executing a query from cobol db2 program.  The explanation for this sql code on ibm site was described as following  AN ERROR WAS FOUND IN THE APPLICATION PROGRAM INPUT PARAMETERS FOR THE SQL STATEMENT, REASON reason
