Re: Using multiple internally described output files

["Jennifer Martin" <jamartin@xxxxxxxxxxxxxxxx>]

I'm already doing the following overrides so are you saying if PRTCD = O I 
should override the OS525CAN to QSYSPRT?

 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)                             

> > > Michael_Schutte@xxxxxxxxxxxx 1/5/2007 3:42 PM >>>
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