|
View previous topic :: View next topic
|
| Author |
Message |
arunswap
New User
Joined: 23 Mar 2006
Posts: 13
|
|
|
|
I have a file A with LRECL 100.
I want it to be copied to file B with 10 LRECL in each line.
How do u do it in COBOL? |
|
| Back to top |
|
 |
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL
|
|
|
|
| Code: |
01 WS-IN-REC.
05 WS-IN-1 PIC X(10).
05 WS-IN-2 PIC X(10).
05 WS-IN-3 PIC X(10).
05 WS-IN-4 PIC X(10).
05 WS-IN-5 PIC X(10).
05 WS-IN-6 PIC X(10).
05 WS-IN-7 PIC X(10).
05 WS-IN-8 PIC X(10).
05 WS-IN-9 PIC X(10).
05 WS-IN-10 PIC X(10).
PERFORM PROCESS-PARA UNTIL END-OF-INFILE.
PROCESS-PARA
READ INPUT-FILE INTO WS-IN-REC.
WRITE OUT-REC FROM WS-IN-1.
WRITE OUT-REC FROM WS-IN-2.
WRITE OUT-REC FROM WS-IN-3.
WRITE OUT-REC FROM WS-IN-4.
WRITE OUT-REC FROM WS-IN-5.
WRITE OUT-REC FROM WS-IN-6.
WRITE OUT-REC FROM WS-IN-7.
WRITE OUT-REC FROM WS-IN-8.
WRITE OUT-REC FROM WS-IN-9.
WRITE OUT-REC FROM WS-IN-10. |
Regards,
Priyesh. |
|
| Back to top |
|
|
prakash271082
New User
Joined: 09 Sep 2005
Posts: 53
|
|
|
|
Hi,
These are all the basic things that everyone should be knowing. Please look in to any of the postings before hand else look in to manual before posting your queries henceforth. |
|
| Back to top |
|
|
gyana
New User
Joined: 09 Feb 2006
Posts: 4
|
|
|
|
Hello friends,
I want to take backup of an area (IDMS database). I can do so by writing a program wherein i'll sweep the whole area and write it to a file and later upload the databse from the file. My questiuon is "Is there any utility thru which i can take the backup and upload the data of a particular area of a databse?"
Regards,
Gyana |
|
| Back to top |
|
|
|
|
