hi is there any means of deletin a record from a ps usin
cobol
not using jcl?eg if i am reading a record and if some
condition is matched tat particular record must be deletd
fom the ps
Answers were Sorted based on User's Feedback
Answer / manikandan
The above answer is do it with the JCL, if you want to do
the same with COBOL, you should be having two files, one is
input and the other one with new output file. Otherwise i
suppose we can't do it.
| Is This Answer Correct ? | 6 Yes | 0 No |
Answer / nagesh
Fine I would like go with answer #2, since physical deletion
is not possible with ps datasets , all you can do is exclude
the records meeting the condition while writing it to new ps
datasets.
let me remind once again that Deletion is not possible with
ps data sets.
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / saikat
take the infile and outfile same in the jcl but in 2 dd
statement. Declare one ainput file to read and other as
output file to write in cobol program. Then read the file
and srore the file contents in an array/table. after
reading the full file write the file from the array records.
| Is This Answer Correct ? | 0 Yes | 2 No |
Answer / mani
If you open the dataset in io mode can't we delete the
record, i think we can.
If it is a flat file or vsam file i think we can delete the
record but the space being used for that will not be recovered.
Please check it.
| Is This Answer Correct ? | 0 Yes | 4 No |
Answer / manikandan
Ofcourse you can do it. You can do it by a simple sort.
You can use either INCLUDE COND or EXCLUDE COND in the
sysin part.
Ex: If you want to delete a record whose first 4 characters
are 'BBBB', you can do it with the following sysin card,
SORT FIELDS=COPY
INCLUDE COND=(1,4,CH,NE'BBBB')
OR
SORT FIELDS=COPY
EXCLUDE COND=(1,4,CH,EQ'BBBB')
| Is This Answer Correct ? | 2 Yes | 9 No |
can I copy book which contain db2 statment in procedure divion?
What is JOBLIB and STEPLIB in JCL? what is the purpose of using it?
Write some characteristics of cobol as means of business language.
study the following 01 A PIC 99V0 VALUE 5 01 B PIC 9V9 VALUE 6 01 C PIC 99V9 VALUE 2.5 01 D PIC 99 VALUE 3 COMPUTE A ROUNDED B C = A+B*C/D ON SIZE ERROR PERFORM PRINT-ERROR the comments of A.B.C after execution of the above statement are a.A=10 B=0 C=10 b.A=10 B=9.9 C=9.9 c.A=10 B=0 C=9.9 d.A=10 B=6 C=10
How did the release of cobol/370 version 1.3 improve the performance of release 1.1?
how will u pass dadta to cobol+db2 program...?
If we put three reads in COBOL in the same para one after the other, to read a PS file,will it read the same record thrice or it will read three records sequentially? For example : Input File 01 02 03 Para 900 Read infile Display Infile rec Read infile Display infile rec Read infile Display infile rec. What will be the output?
I have a files containing both duplicate and non-duplicate records.The file is already sorted by a key.I want to determine those records that are duplicate and records that are non-duplicate.If duplicate the record is move to a duplicate file and if non-duplicate that will be move to valid file.thank you
What is SET TO TRUE all about, anyway?
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
hi dudes.....can any one help me..... what is SET TO TRUE all about,anyway?
can anyone explain me the concept of COMP-4 PLEASE??