The below is the declaration for a variable ws
01 ws pic 9(3).
if you want to insert space how will you do that.
in which level u should do it
Answers were Sorted based on User's Feedback
Answer / sdexcellent@yahoo.co.in
01 ws-new redifines ws pic x(3).
in level 01 only
Is This Answer Correct ? | 7 Yes | 2 No |
Answer / praveen bejjanki
The Question itself is not clear for me,
My understanding is to Insert space in the variable WS.
Then use move stmt as follows
Move space/spaces to WS.
Correct me if i'm wrong.
Is This Answer Correct ? | 0 Yes | 0 No |
TO abend the data sholud open in which mode? 1.new 2.old 3.mod 4.shr
have in 100 records in a flat file i want to move records like 1,3,5,7,9,11,.. to Output file1 and 2,4,6,8,10,12,14 .. records moved to Output file2..Pls Provide real time answer..
What is the file organization clause ?
I have a source program compiled with Cobol-2. The output file has a record length of 100 defined in the program but a record of 60 bytes getting written into it. i.e. The rest of 40 bytes I am not Writing anything. But it by default puts some values into the last 40 bytes. However it does not impact anything. But when Compiled the module with Enterprise Cobol the last 40 bytes were spaces as fillers. Can anyone explain?
What is diff betn PS and ESDS file? What is the diffrent compiler options in cobol and there discription? What is retrive nth maximum salary from salary DB2 table. Can we redefine COM-3 variable with varchar variable?
Can we move SPACES to numeric field and ZEROES to alphabetic field? If yes what are the way doing this?
There are two flat files one having 10 records and other having 5 records. write a cobol pgm to find the duplicate records(matching records)from both files.
wht happens if we dnt give scope terminator ?
System Testing for Mainframe Developers What is System Testing? integration testing ? what's the procedure ..
what is s013u000 for?
What is the difference between Global and External Variables?
consider the following two IF statements: IF X AND NOT Y MOVE A TO B IF Z=1 OR 9 MOVE A TO B select one of the following data divusion entries which gives identical results for both the above IF statements a.01 Z PIC 9 88 X VALUE 1.9 88 Y VALUE 0.2 THRU 8 b.01 Z PIC 9 88 X VALUE 0.2 THRU 8 Y VALUE 1.9 c.01 Z PIC 9 88 X VALUE 1.9 88 NOT-Y VALUE 0.2 THRU 1.9 d.none of yhe above