Mainframe FAQs

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

Just give prep or !jck in the command line it will show the errors in the jcl

You can use a JOB card keyword parameter TYPRUN=SCAN. This parameter suppresses the execution of the JCL & check's your JCL for errors. You will get a MAXCC=4 or 8 or 12 if there are any error in your...

Name of Jcl to be submitted by COBOL program: ABC.XYZ.JCL1COBOL program Name: JCLCOBID DIVISION.PROGRAM-ID. 'JCL-COBOL'.ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION.FILE-CONTR...

Let us the program is TEST and JCL you want to submit from program is A.B.C(MEM).//STEP1    EXEC  PGM=TEST//INPUT    DD      DSN=A.B.C(MEM)/...

Name of the main program            = ABC.XYZ.COBDB2(MAINPGM)Name of the sub-routine program = ABC.XYZ.COBDB2(SUBPGM)Pre-compile JCL://JOBNAME  JOB NOTIFY=...

As of my concern, sequential files cannot be deleted. Means we cannot delete sequential files.

You can read the records in the sequential order and process each record.  When you get the desired record then just use delete to delete that particular record.

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,...

Let me refraze your question...The condition (AND/ALSO) & OR are 2 different things:Ex1: OREVALUATE TRUEWHEN GENDER = 'M' OR 'F' PERFORM ....WHEN OTHEREND-EVALUATE.Ex2: ANDEVALUATE...

For a monoplex system, there is only one master catalog. If your installation has multiple, interconnected systems, the master catalogs of each system can be connected to the master catalogs of each o...