The following simple COBOL program depicts the use of     01 WS-SUB PIC 9(3) VALUE ZEROS.        PERFORM VARYING WS-SUB FROM 1 BY 1 UNTIL WS-SUB=5         DISPLAY ‘INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM’ INLINE PERFORM DEPICTED BY MAINFRAMEWIZARD.COM       […]
COBOL INLINE PERFORM Read More »
#2 Even JP Morgan and Morgan Even JP Morgan and Morgan Stanley have mainframe. #3 #4 Educational material! At last somebody that really knows what they are on about and can additionally produce exellent content for us readers. without a doubt looking forward to your next offering. #5 #6 list of companies using mainframe Below three
List of mainframe companies Read More »
What is the COMP-X used for? We use Micro focus mainframe express for our development work in COBOL, recently I came across a copybook which had datatype of variables defined as COMP-X. Please see below code for reference.   10  FCD-STATUS-KEY-1 PIC X.           Â
What is the COMP-X used for? Read More »
How to create dynamic array in COBOL Is it possible to create dynamic array in COBOl. I have to declare an internal table in a cobol program, but I do not know how much data it can hold. Is it possible to dynamically adjust the size of the array? “; ; ; ;
How to create dynamic array in COBOL Read More »
Difference between copy pending and check pending Can someone please throw some light on the differences between copy pending and checkpending? Â “; ; ; ; http://publib.boulder.ibm.com/infocenter/dzichelp/v2r2/index.jsp?topic=%2Fcom.ibm.db2z9.doc.ugref%2Fsrc%2Ftpc%2Fdb2z_checkpendingstatus.htm what is check pending status? When a table is LOADed with ENFORCE NO option, then the table is set to CHECK PENDING status. This means that the LOAD
Difference between copy pending and check pending Read More »
Main frame Job to Pull SDSF data in Batch  The following Job will help you pull the desired data from spool (SDSF). This may serve as an important tool in gathering the stats of a job just finished. //SDSFOUT   JOB (ACC INFO,,,,,XXXX),’     //           MSGCLASS=Y,NOTIFY=&SYSUID    //STEP01  EXEC PGM=IEFBR14                   //DD01    DD DSN=USERID.DATASET.ONE,        //           DISP=(MOD,DELETE),UNIT=SYSDA    //DD02    DDÂ
Pull SDSF Data Batch Read More »
Basic ISPF commands ISREDIT commands can be classified into “line commands” and “command line commands”. Figure 1 shows the line command area. Figure 2 shows the command line commands area The following presentation walks you through the basic ISPF editor line commands and command line commands. Demo on ISPF line commands Demo on ISPF command
Basic ISPF commands Read More »
Skip first n records and last n records in a file I have to skip first N records and last N records in a file, can any one suggest a way using SYNCSORT to do this. Actually my file has first 5 records as header and last 5 records are trailer records which are not
Skip first n records and last n records in a file Read More »
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 »
