Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

FILEDATA output into CSV format

68 views
Skip to first unread message

Val

unread,
May 25, 2021, 1:50:34 AM5/25/21
to
Is there a way to read the FILEDATA output generated using the FILENAME attribute into a CSV format file.

For example: to produce a CODEINFO report where TARGET is reported for the entire pack in an effort to identify objects not LEVEL6

I was able to do this in PDIR but wanted to know if this is available in FILEDATA

Thanks
Val

Paul Kimpel

unread,
May 25, 2021, 10:16:21 AM5/25/21
to
As far as I can tell, FILEDATA only outputs line-image data in "report"
format. You can output the report to a disk file, but the records will
look like the printed report.

Paul

ramseyhere

unread,
May 25, 2021, 1:29:33 PM5/25/21
to
Rather than use FILEDATA, use *SYSTEM/PDIR. Same type of info, and will output to CSV

Luis Serrano

unread,
May 25, 2021, 3:38:47 PM5/25/21
to
This is the job I use to get similar info .... User can be "*", "(=)" or any specific usercode between parenthesis ...

?BEGIN JOB WFL/PDIR/CODEVERSION (
STRING USR OPTIONAL DEFAULT = "(=)");
%FAMILY DISK = DISK ONLY;
STRING S1, S2, MYPK;

SUBROUTINE CODEINFO (STRING PK);
BEGIN
IF USR = "*" THEN
S2 := "SYSTEM"
ELSE
S2 := "ALLUSR";
S1 := USR & "= ON " & PK & " SHOW NAME,FILEKIND,CODEV,EXEC " &
"SELECT FILEKIND = =CODE= SORT +CODEV" &
":TABBED """ & PK & "_" & S2 & "_CODEV.TXT""" ON MYPK;
%DISPLAY (S1);
RUN *SYSTEM/PDIR (S1);
END;

MYPK := "DISK";
CODEINFO ("SPARE");
?END JOB.

Val

unread,
Jun 1, 2021, 1:27:55 PM6/1/21
to
Than you Luis, Paul, and Larry for the tips, and feedback.
0 new messages