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 have PS flat file with 14 records. I want to read from
4th to 9th record and want to write those 6 records (4th
record to 9th record) to another PS file (output file).
there is no key defined in the input file. I just want read
a certain Consecutive records. can any one please give me
the procedure division Coding for this. I have coded the
below coding but the READ-PARA is performing only 1 time
even though I have 14 records in my input file (i.e FILE-1):
MOVE 0 TO I.
OPEN INPUT FILE-1.
IF CHECK-KEY1 > 0
DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1
OPEN EXTEND NEWFILE-1
IF CHECK-KEY3 > 0
DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3
PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'.
DISPLAY " FINALLY OUT OF LOOP"
ADD 1 TO I
AT END MOVE 'YES' TO EOF-REC
IF I > 3 AND < 10
DISPLAY "NOT IN RANGE"
WRITE NEW-REC FROM FILE1-REC.
How to delete a front spaces in a data-name/variable in
01 data-name-1 PIC x(20) value " cobol language".
01 data-name-2 PIC x(20).
MOVE data-name-1 to data-name-2.
would like the value of data-name-2 is "cobol language".
i want a program using by if, evaluate , string, unstring,
how to access the file from prodution from changeman tool
and to submit a file to production
) what is the difference between AID and HANDLE AID?
How to define a array dynamically.....
in real time what is the suitable exp where in-stream procedure is better then catalog procedure.
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
How to solve SOC7. I have the cobol coded as below
01 A PIC 9(4).
01 AIN REDEFINES A.
05 AIN1 PIC S9(4)
01 B PIC 9(4)V99.
01 BIN REDEFINES B.
05 BIN1 PIC S9(4)V99.
INITIALIZE A AIN B BIN.
ACCEPT A B.
DISPLAY 'VALUE OF A=' A.
DISPLAY 'VALUE OF B=' B.
DISPLAY 'VALUE OF BIN1=' BIN1.
DISPLAY 'VALUE OF AIN1=' AIN1.
COMPUTE AIN1 = BIN1 - AIN1.
DISPLAY 'VALUE OF AIN1=' AIN1.
When i'm executing this code i'm getting SOC7 for A = 12 &
B=34. Can someone explain
SDSF OUTPUT DISPLAY TCOM058R JOB05458 DSID 102 LINE
0 COLUMNS 02- 81
===> SCROLL ===>
********************************* TOP OF DATA
CEE3207S The system detected a data exception (System
From compile unit PROG1 at entry point PROG1 at
statement 29 at compile
+000004CE at address 00007ECE.
Please address how to solve this issue Thanks in
which certifications r 4 cobol,jcl,db2,cics
what is format of xam n what is importance of these
plz post answer only if u r sure...
IN FILE1 HAVE 80 RECORDS ARE LIKE D1,D2,D3......D80. FILE2 HAVE 1000RECORDS ARE LIKE A1D1,A1D2,A3D3.....etc. I WANT MATCHING RECORDS IN FILE3 ? PLSE TELL ME THE MATCHING LOGIC???I WANT ANSWER ONLY IN COBOL ?NOT USING ANY TOOL OR JCL?
example for sub strings ? and refernce modifications whit output pls
1.give the details about WHEN OTHER.
2. how many form are available in evaluate.
I have program P1 which calls file F1 which has 100 records
and following structure
Now I want to read these files and write these records in
file F2 in following manner.
001 ...... 051 .....
002 ...... 052 .....
003 ...... 053 .....
048 ........ 098 ......
049 .......... 099 .......
050 .... 100 ......
I have to write to a outfile where the number of records in
that file should be the header of that file using IMS.. can
anyone help me in this issue
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
what is s000 u4087 error?
please give the all error codes in cobol,jcl.