Mainframe FAQs

1. Plan is executable,Pakage is non-executable and Plan contains packages. n No. of pgms contains n No. of packages but only one plan. 2. View is Just a logical table to Base tables for ex: if we are...

Hi Latha,I could suggest you to refer DB2-SQL Red books And online help while working with mainframe.Anyhow, I will answer to few of your questions.Plan is executable code and it contains access path ...

Here are some of the methods I can think of:- 1. Write the data you want to pass from the called program to a temp file. In the called program, read the temp file and get the data. 2. You can use MQs ...

At the TSO "READY" prompt, type SUB . Once you hit enter your job will be submitted. To monitor the job, at the TSO prompt, type SDSF. SPOOL opens up and you can monitor your job.

Without submitting the job through the ISPF Facility, we could schedule the same job through CA-7 schedular which makes the job run automatically at the provided schedule. 

You can run a job like this:-
//DCLGEN EXEC PGM=IKJEFT1B
//SYSTSIN DD *
DSN SYSTEM()
DCLGEN TABLE() +
LIBRARY ()) +
ACTION(ADD) APOST +
LANGUAGE(IBMCOB)
END

You will have to allocate other appropriate libraries before running this JCL.

To include the DCLGEN in your COBOL program, you can say:-

EXEC SQL
INCLUDE
END-EXEC.

Make sure you have the library where you created this DCLGEN concatenated to DDNAME SYSLIB on your precompile job.

In jobcard jobname is mandatory, class and msgclass parameters also mandatory

The only mandatory field in a job card parameter is the jobname the rest of the parameter are installation defined...Ex://JOBNAME JOB //STEP EXEC PGM=IEFBR14//DD1 DD DSN=USERID.ABC.XYZ,DISP=(NEW,...

By using Joins...

A join operation on 2 tables combines the rows from one table with those of the other, join the 2 tables based on common columns.

File Status 39 is come for file attribute mismatch not for empty file opening ....For Empty vsam file u will get the error 160

Status code 39

The diagnostics provided with the S0C7 will help you identify which value is not valid. If your site has Abend Aid or one of the other abend analysis tools Index or Subscript is uninitialized, Incorr...

If the cobol program is compile with option FDUMP. you can see the input record which caused the abend CEEDUMP and also the field which cause the error. Something like this.QTY-ACCEPTED  &nb...

we can pass values from COBOL to jcl is only through Files
through return-code we can pass only return code through COBOL to jcl

synt:- Move 16 to Return-code and this can be access in jcl through cond parameter of the jcl step.

The above 2 ways are to send data from JCL to COBOL not from COBOL to JCL

if you want to use the VSAM in CICS ,first we need to register the file into cics online table called FCT (FILE CONTROL TABLE) . for that we have to write like.,
CEDA DEF FILE(FILENAME) G(VVVV)
CEDA DEF FILE(FILENAME) G(VVVV)

THEN IT WILL BE READY FOR EXECUTING IN ONLINE

Same as mapset we have to define and install the File in CICS by using CEDA command.

open file in reverse

i.e OPEN input file-name Reverse

Hi guys

input file
======

a
n
d

to get outupt
==========

d
n
a


if you use the desc sort, output will be display as z to a

if you insert the sequence no on file, than sort to get reverse order.

syntax is

OUTREC = (1, 5, SEQNUM, 5, ZD)

sequence no will be stored in 6 to 10



Regards
Rasipuram Manivannan M

ws-rec is an occurs clause variable name. "cobol perform sort-para varying I from 1 by 1 until I > (no of records) after J from I by 1 until J > (no of r...

Move all the records to array table.
then compare with each other,then swap that two records.
like IF ARRAY(I) > ARRAY(J)
MOVE I TO WS-DATA
MOVE J TO I
MOVE WS-DATA TO J
ELSE
COMPUT I = I + 1
PERFOEM SAME PARA UPTO FS = 10

Here is the answer for your question "cobol IDENTIFICATION DIVISION. PROGRAM-ID. RECCNT. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IN-FILE1 ASSIGN TO DD1...

64k

64 k

Is this a FTP job? If so, the reason for the abend would be Connection to server interrupted or FTP timed out.

if you are working with files or db2 may be a record in it is locked. just relese the lock and try again.

by using soft utility we can copy the duplicate regards of one file to another file.

Code
  //SYSIN DD *
      SORT FIELDS=COPY
      SUM FIELDS=NONE,XSUM
 //SORTXSUM DD DSN=OZA040.PC.DUP.FILE,DISP=OLD
/*

//DDName EXEC PGM=SORT//SORTIN DD DSN=XXXXXXXXXXXXXXXXX,// DISP=SHR//SORTOUT DD DSN=XXXXXXXXXXXXXXXXXXXX,// DISP=(NEW,CATLG,DELETE),// UNIT=XXXXX,SPACE=(XXX,(XX,XX),XXXX),// DCB=(*.SORTIN) Output file...

If u know vol serial number , u can get it by using the VOL=SER= VALUE