RE: Using multiple internally described output files -- RPG400-L

I'm already using the following overrides:

IF (&PRTCD = 'O') THEN(DO)                                 
 OVRPRTF    FILE(OS525OTH) ALIGN(*NO) +                     
            OUTQ(*LIBL/&OUTQ) FORMTYPE(CUSINV) HOLD(*NO)    
    ENDDO                                                   
                                                            
 CALL       PGM(OS525ECUST) PARM(&SHIPPER &PRTCD)           
                                                            
 IF (&PRTCD = 'C') THEN(DO)                                 
 RTVSPLFA   SPLF(OS525CAN) SPLNBR(*LAST) TOTPAG(&TOTPAG)    
 CHGVAR     VAR(&PAGES) VALUE(&TOTPAG)                      
                                                            
    COPY REPORT TO A DATABASE FILE*/                        
 CRTPF      FILE(QTEMP/SPOOLFILE) RCDLEN(133)               
 MONMSG     MSGID(CPF7302)                                  
 CPYSPLF    FILE(OS525CAN) TOFILE(QTEMP/SPOOLFILE) +        
              SPLNBR(*LAST) MBROPT(*REPLACE) CTLCHAR(*FCFC) 
                                                            
    UPDATE THE NUMBER OF PAGES*/                            
 OVRDBF     FILE(SPOOLFILE) TOFILE(QTEMP/SPOOLFILE)    
 CALL       PGM(UPDTPAGE) PARM(&PAGES)                 
 DLTOVR     FILE(SPOOLFILE)                            
                                                       
    REBUILD THE SPOOLED FILE*/                         
 OVRPRTF    FILE(OS525CAN) TOFILE(*FILE) ALIGN(*NO) +  
            CTLCHAR(*FCFC) OUTQ(CUSINVC) +             
            FORMTYPE(CUSINVCN) HOLD(*NO) USRDTA(FINALCA
 CPYF       FROMFILE(QTEMP/SPOOLFILE) TOFILE(OS525CAN) 
 DLTOVR     FILE(OS525CAN)                             
    ENDDO                                              
 DLTOVR     FILE(OS525OTH)

R_C_DuVall@xxxxxxxxxx 1/5/2007 3:52 PM >>>

Or just 'crtprtf OS525CAN'  

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] 
On Behalf Of Michael_Schutte@xxxxxxxxxxxx 
Sent: Friday, January 05, 2007 2:43 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Using multiple internally described output files

If so... then you need to override OS525CAN to QSYSPRT.

At least that's how we do it here.   OVRPRTF OS525CAN QSYSPRT prior to
opening of the files.

Michael Schutte
We've built a better hotcake -- Stacked and Stuffed Hotcakes -- coming
January 11th!

rpg400-l-bounces@xxxxxxxxxxxx wrote on 01/05/2007 03:03:11 PM:

Can anyone tell me why I'm getting the following implicit open error 
and why it says the file doesn't exist on the following:

Error messages:
File OS525OTH in library *LIBL not found or inline data file missing.

Error message CPF4101 appeared during OPEN for file OS525OTH.

Function check. RNX1216 unmonitored by OS525ECUST at statement

0001000001,

  instruction X'0000'.

FOS525CAN  O    F   87        PRINTER OFLIND(*INOF)
F                                     INFDS(OS525D)
FOS525OTH  O    F   87        PRINTER OFLIND(*INOG)
F                                     INFDS(OS526D)


D OS525D          DS
D******************************************
D* PRINTER FILE DATA STRUCTURE (OS525D)
D******************************************
D  OS525F                 1    102
D  OS525S           *STATUS
D  OS525_LIN            367    368B 0
D*
D OS526D          DS
D******************************************
D* PRINTER FILE DATA STRUCTURE (OS526D)
D******************************************
D  OS526F                 1    102
D  OS526S           *STATUS
D  OS525_LIN2           367    368B 0


I tried also using the USROPN and %OPEN but these didn't work either.

Thanks
Jennifer


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l 
or email: RPG400-L-request@xxxxxxxxxxxx 
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.