Delete Record from FlatFile

[USADarts]

BILLOUT is in the QTEMP Library

***********************************************
FBILLOUT UP F 180 DISK
***********************************************
IBILLOUT NS 01 128 C1
I 76 76 CO#
***********************************************

I need to run through the flat file. If CO# is = "H", I need to delete that record from the FlatFile. How is this done?

Thanks
David

 

[jmd0252]

you can always do an ifeq statement, even though it is "old school".. it still works..

co# ifeq "H"
DELTE (RECORD NAME)
END

SINCE AND SIMPLE,, not at all fancy

 

[TracyV]

Could use an SQL statement to delete all the records where CO# = 'H'


C/Exec SQL
C+ Delete from QTEMP/BILLOUT
C+ Where CO# = 'H'
C/End-Exec

 

[rstitzel]

Can you run SQL statements against PROGRAM defined files? In the example BILLOUT is a program defined file. I thought the file would have to be EXTERNALLY defined?