I have a request for an unusual report format. It's not your ordinary table looking format. It's more of a screen format. I told the user that I will try to come as close as possible. My report is currently working, but it is in a table like format, which is nothing close to this.
Well... here is a sample concept of the request:
DATA IN A FIX FORMAT MVS FLAT FILE FROM A COBOL PROGRAM:
|----------------------------------------- FLAGS AND TO EMAIL OCCURS 3 TIMES ---------------------------------------------|
SENDER EMAIL F1 F2 F3 TO EMAIL F1 F2 F3 TO EMAIL F1 F2 F3 TO EMAIL
------------------------------ --- --- --- ------------------------------ --- --- --- ------------------------------- --- --- --- ------------------------------
J.SMITH@STI.COM Y Y N J.BATES@STI.COM Y Y Y B.GATES@STI.COM N Y Y R.BOYD@STI.COM
T.SMITE@STI.COM Y Y N B.GONE@STI.COM Y Y Y D.YOUNG@STI.COM N N N B.LINE@STI.COM
X.CON@STI.COM N N Y B.KING@STI.COM N Y Y B.MAC@STI.COM Y N N K.KONG@STI.COM
...CONT
TIME SENT SUBJECT BODY1 BODY2 BODY3
----------------- ---------------------------------- ---------------------------------- ----------------------------------- -----------
103000 TEST EMAIL THIS IS A TEST EMAIL. PLEASE DO NOT REPLY.
132033 TEST FORWARD MAIL THIS IS A TEST FW EMAIL. DO NOT REPLY.
020013 TEST AUTOREPLY THIS IS A TEST AUTOREPLY. DO NOT REPLY.
REPORT FORMAT (FOR A COUPLE OF RECORDS):
PAGE 1 PAGE HEADER
REPORT NAME RUN AT TIME ON DATE
TIME SENT : 10:30:00
FROM EMAIL : J.SMITH@STI.COM
SUBJECT : TEST EMAIL
BODY THIS IS A TEST EMAIL.
PLEASE DO NOT
REPLY.
F1 F2 F3 TO EMAIL
Y Y N J.BATES@STI.COM
Y Y Y B.GATES@STI.COM
N Y Y R.BOYD@STI.COM
PAGE 2 PAGE HEADER
REPORT NAME RUN AT TIME ON DATE
TIME SENT : 13:20:33
FROM EMAIL : J.SMITE@STI.COM
SUBJECT : TEST FORWARD MAIL
BODY THIS IS A TEST FW.
EMAIL. DO NOT
REPLY.
F1 F2 F3 TO EMAIL
Y Y N J.GONE@STI.COM
Y Y Y D.YOUNG@STI.COM
N N N B.LINE@STI.COM
...AND SO ON.
I am still new to programming in WebFocus, so the best I can do so far is to do a table file request like the following:
TABLE FILE DATASET
HEADING CENTER
"PAGE HEADER"
"REPORT NAME RUN AT TIME ON DATE"
" "
PRINT
BODY1
BODY2
BODY3
F1
F2
F3
TO_EMAIL
BY TIME_SENT
SUBJECT
SENDER_EMAIL
END
-RUN
I used the POSITION command in my masterfile to define the occurs fields.
so all the flags and TO_EMAIL will appear for each record.
Sorry for the lengthy email, and thank you for your patience.
Thanks,
Ronnel C
WebFocus 7.1.5
IBM ZOS 1.6