REXX Report column headings

[Lisa Bounds]

I use REXX to do simple things, and I am sure this is simple but can't figure it out.

How to add a HEADER to my report. I dump a file and then use DFSORT to get what I want from it. Next, I use the REXX to parse the lines and put what I want from them, but I can't figure out how to put column headings.

Code I am using and not sure how to put column headings. Any helps I'd be thank full.

"EXECIO * DISKR DDIN1 (STEM ARRAY. FINIS"
"EXECIO * DISKW DDOUT1"

DO I = 1 TO ARRAY.0
PARSE VAR ARRAY.I DATE TIME APPL SUBAPPL NAME
FOUND1.I = LEFT(DATE,12) LEFT(TIME,14) LEFT(APPL,10)
FOUND2.I = LEFT(SUBAPPL,10) LEFT(NAME,20)
FOUND.I = FOUND1.I||FOUND2.I
SAY FOUND.I
"EXECIO * DISKW DDOUT1 (STEM FOUND. FINIS"
END

--
This electronic communication and the information and any files transmitted
with it, or attached to it, are confidential and are intended solely for
the use of the individual or entity to whom it is addressed and may contain
information that is confidential, legally privileged, protected by privacy
laws, or otherwise restricted from disclosure to anyone else. If you are
not the intended recipient or the person responsible for delivering the
e-mail to the intended recipient, you are hereby notified that any use,
copying, distributing, dissemination, forwarding, printing, or copying of
this e-mail is strictly prohibited. If you received this e-mail in error,
please return the e-mail to the sender, delete it from your computer, and
destroy any printed copy of it.