Interested to Buy Any Domain ? << Click Here >> for more details...
if a dataset is already created with fixed length but after
that i want to change fixed length to variable length then
how is it possible
- 3 Answers
- 9067 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / vibhu
we can do that using Jcl and passing FTOV in the sysin
parameter
| Is This Answer Correct ? | 8 Yes | 0 No |
Answer / varsha
You can convert an FB data set to a VB data set with
OUTFIL's FTOV parameter. Each VB output record has a 4-byte
RDW followed by the corresponding data from the FB input
record, and the length in the RDW is the length of the FB
record plus 4.
The following JCL and DFSORT control statements convert the
bookstore data set records from FB to VB.
//FBVB JOB A92,PROGRAMMER
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=A123456.SORT.SAMPIN,DISP=SHR
//VBOUT DD DSN=A123456.SORT.VSAMP,DISP=
(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(CYL,(5,5))
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=VBOUT,FTOV
/*Because the LRECL of SORT.SAMPIN is 173 bytes, each VB
record in SORT.VSAMP is 177 bytes (the FB record length of
173 plus 4 for the RDW) and SORT.VSAMP is given an LRECL of
177.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / mainframesasi
No it is not possible the values which we have defined
while creating dataset in 3.2 is the final.
| Is This Answer Correct ? | 1 Yes | 6 No |
i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?
01 a pic 9(9v99) 01 b pic 9(9.99) wht will be the stored vales in both cases
If we use GO BACK instead of STOP RUN in cobol?
What will happen if we move SPACES to numeric field and ZEROES to alphabetic field?
I have one column say 'X' defined as VARCHAR Can anyone tell me What are the different ways to update this column thru COBOL-DB2 program?
) How do u handle errors in BMS macro
What are all the divisions of a COBOL program?
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
consider the following FD FILE-1 01 REC-1 PIC X(80) ...... WORKING-STORAGE SECTION 01 W-REC PIC X(90) ........ PROCEDURE DIVISION FIRST-PARA ....... READ FILE-1 INTO W-REC AT END MOVE 1 TO EOF-FLAG which of the following is true with respect to the above? a.REC-1 will contain nothing and W-REC will contain the contains of the record read b.REC-1 and W-REC contain the same data c.syntex is invalid and error will occur d.REC-1 and W-REC must be of same size
I try to use some column names in my cobol progorm but these column not in db2 table ..when do i get error ..while bind time or runtime?
Write a program to concert an Indexed file into Sequential file?
What is difference between comp & comp-4?
COBOL 
