How can I check out put for program defined printer file

225 pts.
Tags:
AS/400
AS/400 Printer File
I have created one program defined printer file, that is compiled. When I call the program it is successfully called but spool file is not generating.
0002.00 FSTUPF UF A E K DISK
0003.00 FPRINT1 O F 132 PRINTER OFLIND(*IN90)
0003.01 C EXCEPT HEADER
0003.02 C *LOVAL SETLL STUPF
0004.00 C READ(N) STUPF
0006.00 C DOW NOT %EOF(STUPF)
0006.01 C IF *IN90=*ON
0007.00 C EXCEPT HEADER
0007.01 C ENDIF
0007.02 C EXCEPT DETAIL
0007.03 C READ(N) STUPF
0009.00 C ENDDO
0009.01 C EXCEPT FOOTER
0010.00 C SETON LR
0011.00 OPRINT1 E HEADER
0012.00 O 6 'PAGE'
0012.01 O PAGE 10
0012.02 O 47 'STUDENT DETAILS'
0013.00 O 65 'DATE'
0014.00 O UDATE Y 75
0015.00 O E HEADER
0016.00 O 15 'STUDENTNUMBER'
0017.00 O 25 'STUDENTNAME'
0018.00 O 30 'STUDENTAGE'
0019.00 O E DETAIL 1
0020.00 O STUNUMBER 15
0021.00 O STUNAME 25
0022.00 O STUAGE 30
0023.00 O E FOOTER 1
0024.00 O 42 '**************************'
This is my code for program defined printer file. Is there any anything wrong in this program? Please suggest.
1

Answer Wiki

Thanks. We'll let you know when a new response is added.

If you are getting the spool file created but its blank, are you sure there is data in the file ? Have you tried running  the program using STRDBG to see if looping is working properly ?

Discuss This Question: 1  Reply

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.
  • philpl1jb

    I think the first O spec needs to reference the name of your spool file. PRINT1  and I believe that PRINT1 has to be a Print file.  We often use QSYSPRT for a generic print file with generic attributes.

    QSYSPRT QSYS PRTF System non-described printer file


    54,090 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: