There is a production file which has millions of records in
it.The program that uses it ends up with an SOC7 abend.It
is sure that the abend is due to some invalid data in the
file.Is there any way to debugg the SOC7 abend with out
giving displays? I need the record which is cause for the
01 VAR1 COMP-2 VALUE 0.
MOVE 10.2115 TO VAR1.
DISPLAY 'VAR1 =' VAR1.
10.2115 is stored as .10211499999999996E 02 in OS VS Cobol
10.2115 is stored as .10211500000000000E 02 in ecobol.
Any reason why?
after udatingg first 110 rows, my job abends. now how do i
change my cobol program so that when i restart the Job it
will start updating from 111th row ( i.e in next run I
di=ont want to update those 110 rows which are already been
updated in the first run before job abend)
I have two sequential files, FILE-1 and FILE-2.
FILE-1 contains 2 columns(A,B) and FILE-2 contains 3 columns
(C,D,E).I want an output file, FILE-3 which has all five
columns with duplicates eliminated from column A.
01 NAME1 PIC X(13) VALUE "COBOL PROGRAMMING".
01 NAME2 PIC X(13).
now I want to display the value of NAME1 in reverse order
i.e value should be displayed as "GNIMMARGORP LOBOC"
HOW can I do that ??? please let me know if any one knows
i made it to stage 3 of an interview process wednessday
they will quiz my knowledge again face to face for an
analyst role recruiter said it will be based on Business
requirements system is cobol and good ideas what they might
I have sequential file recl 1000 i want to add another 15
bytes to it. The record length should not change..How?
IF I mention stop run in CICS what happens?
I have a File that has duplicate records. I need only those records that occur more than
how to convert the recors form vsam file to db2 table tru
how to access the file from prodution from changeman tool
and to submit a file to production
have in 100 records in a file i want to read first 3 records
and skip next 3 records and agan i want to read 3 records and
again i want to skip 3 records...
How to change size of Initial number of records to *NOMAX
for ALL PF files from perticular library, how can I do that
record length in spool?
what are decleratives in cobol?
If i got a job on mainframe technology, will i have a bright
future?. Some people are discouraging me. Let me know, is it
true? Please bring back me from the confusion.
here is my requirement
A1 is alphanumeric with value 'A1B2C3D4' as defined below
05 A1 PIC X(8) VALUE IS 'A1B2C3D4'
but i need to have A2,A3 as ABCD & 1234 repectively......
A2 = ABCD
A3 = 1234
Can you please explain me what are the different ways to do it?
Our issue is there seems to be a disconnect, or no link,
between our SELECT statement and our SD. We had
SELECT SORT-FILE and SELECT SORT-FILE
ASSIGN TO SORTWRK. ASSIGN TO SORTWRK1
with SD SORT_FILE
RECORD CONTAINS 7833 CHARACTERS.
In either case, at run time, the system ignored our
SORTWRK# DD statements and allocated 16 sort works with the
SORTWK## naming convention. Any ideas why the system does
not recognize the connection? We do not even need the
SORTWRK DD statements. Thanks
i need a small 3d program using inline and outline.