Interested to Buy Any Domain ? << Click Here >> for more details...
How to display the index.(displacement from an array)
- 4 Answers
- 16947 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / naina
Ye we can!!!
The easiest way, which would work in all versions of COBOL
is
SET W-S-VAR-PICS9(9)-USAGE-DISPLAY TO THE-INDEX-U-WANT-TO-
DISPLAY
DISPLAY W-S-VAR-PICS9(9)-USAGE-DISPLAY
| Is This Answer Correct ? | 11 Yes | 1 No |
Answer / sreeji
we cant display index variable. we can display subscript
| Is This Answer Correct ? | 13 Yes | 7 No |
Answer / guest1
I tried to redefine a the index variable by a zoned
variable. But not thing displayed..
| Is This Answer Correct ? | 2 Yes | 3 No |
Answer / shan
The above set statements are correct but the variable which
you are going to display should be defined as usage is index.
| Is This Answer Correct ? | 3 Yes | 6 No |
Hai friends why we need to read a file before re-write a record?
IDENTIFICATION DIVISION. PROGRAM-ID. MOVEPGM. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-I PIC 9(2). PROCEDURE DIVISION. A1000-MAIN-PARA. PERFORM PARA-X WITH TEST BEFORE UNTIL WS-I= 5 STOP RUN. PARA-X. DISPLAY "BEST2". I m getting error s722,while executing the program, seems getting in loop, can anybody tell me why
what is level 66 means??
How to resolve the soc4 & soc7 other than following answers. Soc4 can resolved using mispleed dd name and dd name is not matching with file and soc7 check the sysdump and copy the offest address then correct it in the program.
10 Answers ADP, Amdocs, Cap Gemini, Keane India Ltd, Super Value, TCS,
What is the purpose of Identification Division?
i want all ERRORS codes in COBOL ,JCL,VSAM ,DB2,CICS
1.give the details about WHEN OTHER. 2. how many form are available in evaluate.
what are the paramater we cannot use in procedure?how many instream we can write in single jcl?can we call instream to catalog and ctalog to instream?
2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic
if i am reading a file with some 50000 records and moving to a DB2 table and suddenly the program abends in between, is there anyway i could restart from the exact record at which the job failed once the program restarts.
soc-7 is a bad data,invalid data. when ever we are moving the alphabets in the position of numeric then we got this abend. so my question is if o1 ws-data pic 9(1) value passing the alphabet some x. then we got soc-7 or not? i want clarification ?
What is the maximum data length for Numeric DataType ?
COBOL 
