SQL SELECT INTO statement on mainframe differs from the way SELECT INTO SQL SERVER statement works. The SELECT INTO on mainframe is used in a COBOL DB2 program, to store the contents of a table into host variables Following example shows how SELECT INTO works in a cobol program   WHERE  FIELD_NAME  = :TABLE-NAME.FIELD-NAME […]
SELECT INTO SQL SERVER AND SELECT INTO DB2 Read More »
Searching a member in more than one pds at a time Step3: Provide the First qualifier of PDS to look for the member and enter For example you wish to look for member name “MYMEM” in all PDS starting with ABC then issue Step4: Issue command M followed by membername for example This will search
Searching a member in more than one pds at a time Read More »
Basic SDSF Commands This mainframe tutorial is aimed at shelling out very basic information about SDSF commands. A beginner will find it useful to quickly learn about SDSF. SDSF stands for System Display and Search Facility. It is a system to monitor and control mainframe Jobs. The following video tutorial will help you understand the
Basic SDSF Commands Read More »
STRING DELIMITED BY LITERAL The following COBOL program depicts the use of STRING DELIMITED BY LITERAL      01 WS-TITLE    PIC X(3)  VALUE SPACES.     01 WS-FIRST-NAME PIC X(20) VALUE SPACES.     01 WS-LAST-NAME  PIC X(20) VALUE SPACES.     01 WS-FULL-NAME  PIC X(43) VALUE SPACES.
STRING DELIMITED BY LITERAL Read More »
STRING DELIMITED BY IDENTIFIER The following COBOL program depicts the use of STRING DELIMITED BY IDENTIFIER     01 WS-TITLE    PIC X(3)  VALUE SPACES.     01 WS-FIRST-NAME PIC X(20) VALUE SPACES.     01 WS-LAST-NAME  PIC X(20) VALUE SPACES.     01 WS-FULL-NAME  PIC X(43) VALUE SPACES.  Â
STRING DELIMITED BY IDENTIFIER Read More »
10 Steps to SET UP TURNKEY ON YOUR COMPUTERÂ The following ten step approach will explain you the process of setting up your own mainframe emulator on your local machine. Hercules mainframe is an open source emulation of mainframe and can come handy for practicing mainframe applications. Since IBM mainframe applications are licensed products of
Ten Steps to Setup Hercules Turnkey Mainframe emulator Read More »
Job to Pull Time Statistics of a Main frame Job from SAR  The following job can be used to fetch time details of a Job from SAR. //JOBTIME   JOB (ACC INFO,,,,,XXXX),’        ‘,CLASS=M,  //           MSGCLASS=Y,NOTIFY=&SYSUID                        //STEP01  EXEC PGM=IEFBR14                        //DD01    DD DSN=USERID.DATASET.ONE,           //            DISP=(MOD,DELETE),UNIT=SYSDA        //DD02    DD DSN=USERID.DATASET.TWO,             //            DISP=(MOD,DELETE),UNIT=SYSDA        //*                                                //STEP02  EXEC PGM=SARBCH                      //SYSUDUMP DD SYSOUT=*                          //SYSPRINT DD
Example of MULTIPLY verb PROGRAM IDENTIFICATION DIVISION.                                        PROGRAM-ID. PGM006.                                             AUTHOR. MAINFRAMEWIZARD.                                        DATA DIVISION.                                                  WORKING-STORAGE SECTION.                                        01 NUM1 PIC 9(3) VALUE 05.                                     01 NUM2 PIC 9(3) VALUE 10.                                     01 NUM3 PIC 9(3) VALUE 15.                                     01 NUM4 PIC 9(3) VALUE 20.                                     01 NUM5 PIC 9(3) VALUE 25.                                     01 NUM6Â
Aliases are used to give some meaningful (alternate) names to the existing DB2 tables. These can refer tables which are local to the system as well as those which are remote. If a table is dropped then the associated aliases are not dropped on their own. How to Create an Alias on a DB2 Table?
Alias of DB2 Table Read More »
The following COBOL program depicts the use of     01 WS-SUB  PIC 9  VALUE ZEROS.           DISPLAY ‘WS-SUB IS EQUAL TO 4’           DISPLAY ‘WS-SUB IS EQUAL TO 5’           DISPLAY
COBOL EVALUATE IDENTIFIER Read More »
