max length of data passed from JCL to COBOL One of interview question on Jcl, I faced was what is the maximum length of data that can be passed  as Parm from JCL to COBOL. As I have read somewhere that its 100 bytes of data that is maximum that can be passed from JCL […]
max length of data passed from JCL to COBOL Read More »
How to find the TSO region in which you are logged on? You can use the following command This command will show the ISPF STATISTICS pop up where you can find the TSO region in which you are logged on, along with
How to find the TSO region in which you are logged on 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 »
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 »
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 »
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. http://mainframewizard.com
mainframe websites 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 »
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 »
How to calculated maximum space using primary and secondary units Before I start my question, let me provide an example   How much total space be allowed for  SPACE=(TRK,(10,5)) I read somewhere during my training that the total units can be calculated by using the following formula Total units(Trks/blks/cyl)= Primary + 15 * Secondary. SPACE=(TRK,(10,5))
How to calculated maximum space using primary and secondary units Read More »
Splitting a file into equal number of records I have a file which contains a very huge number of records. The file is fed to a job and we are planning to split the file into 5 different files so that we can have parallel jobs process I need to split the file into equal
Splitting a file into equal number of records Read More »
