what are the working storage fields in BMS macro?
Answers were Sorted based on User's Feedback
Answer / praveen c
field+I -input
field+O -output
field+F -flag
field+A -attribute
field+L -length
| Is This Answer Correct ? | 0 Yes | 0 No |
field+I - input
field+o - output
field+f - flag
field+a - attribute
field+l - length
| Is This Answer Correct ? | 0 Yes | 0 No |
Suppose, file A has 100 records and file B has 500 records. We want to write records common to both A and B into file C and records which are present only in either A or B into another file D. What should be the logic of Cobol program to achieve this?
7 Answers Bank Of America, Mind Tree,
) What is the use of IGNORE?
How can we pass data from cobol to JCl?
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): PROCEDURE DIVISION. A000-SECTION. MOVE 0 TO I. OPEN INPUT FILE-1. IF CHECK-KEY1 > 0 DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1 END-IF. OPEN EXTEND NEWFILE-1 IF CHECK-KEY3 > 0 DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3 END-IF. PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'. DISPLAY " FINALLY OUT OF LOOP" CLOSE FILE-1 CLOSE NEWFILE-1 STOP RUN. READ-PARA. ADD 1 TO I READ FILE-1 AT END MOVE 'YES' TO EOF-REC IF I > 3 AND < 10 PERFORM WRITE-PARA ELSE DISPLAY "NOT IN RANGE" END-IF. EXIT-PARA. EXIT. WRITE-PARA. WRITE NEW-REC FROM FILE1-REC.
What do you feel makes a good program?
If you are current on the owner of a set, what is the difference between obtain next and obtain first?
what is meaning by design document? who can repared for this?
DATAONLY, MAPONLY functionality?
Can you REWRITE a record in an ESDS file? Can you DELETE a record from it?
6 Answers ABC, IBM, Mphasis, Wipro,
What is perform what is varying?
what do you mean by copybook? and what is the difference between the copybook which we are using in working storage and procedure division.
What is XDC ?