error message

[jimmy]

hi

I created a subfile and wrote an rpg program to display the subfile. There seems to be no error in the program and it is compiling properly. but when i call the program i get the error message "Session or device error occurred in file PRINTSFL (C G D F)." i have just created PRINTSFL and it is not being called by any other file....




regards

Jimmy

[arrow483]

Re: error message

Can't tell without more info. Most likely is the session doesn't support (disply 132 cars on an 80 col screen), or writing to position 1 in row 1.

[jimmy]

Re: error message

I'm attaching the code for the Subfile and the RPG.

I Hope this will be sufficient


Printsfl.txt

subrpg.txt

[FaStOnE]

Re: error message

I think you need a SFILE keyword on your File Spec to link to your CTL Rec.

-R

[jimmy]

Re: error message

thanks FASTONE

I did as you advised me and i made the following changes to the codes (attached)

now i am unable to compile the subfile

Printsfl.txt

subrpg.txt


Kindly advice

[jamief]

Re: error message

Post the error message on the compile. THe DDS looks correct to me......



Wait I think I see the probem here in your RPG you have listed your control record as the subfile.
I dont like that you named your subfile screen (how bout SUB01) anyway you need to change this line in RPG

F                                     SFILE(SCRCTL:RRN1)

to this

F                                     SFILE(SCREEN:RRN1)

Jamie

[jimmy]

Re: error message

thanks jamief
I havent compiled the RPG yet cos i am getting an error in the DDS and the SCRRN will not be detected by the RPG

i have changed the command as you have advised on compilation there are errors because the RPG does not recognize the SCRRN in the DDS


the error message that i get on compiling the DDS is
Errors in DDS not allowed with specified GENLVL.File PRINTSFL not created in library JIMMY.

[jamief]

Re: error message

Jimmy,

The error message you are posting is generic...we need the error message with the severity of 30 or higher posted so that we can help you.

Download this tool - dont cahnge it at all.

http://www.code400.com/cvt2pdf.php

then convert the compile to a .pdf file on the IFS and post back here so we can help.
When I get to work I will remove your reference and hardcode the fields and see what errors I get.

jamie

[jimmy]

Re: error message

Jamief
Do you want just the error messages or the entire spooled file

ill paste the messages in the forum now if you want the entire file tell me ill upload that too


ID Severity Number
* CPD5238 30 1 Message . . . . : No valid record found in source.
* CPD7486 20 2 Message . . . . : Keyword specified at incorrect level.
* CPD7564 20 1 Message . . . . : SFLSIZ, SFLPAG, and SFLDSP keywords required.
* CPD7571 20 3 Message . . . . : Indicated keyword requires SFLCTL keyword.
* CPD7836 30 1 Message . . . . : Subfile control record not found.
* CPD7850 30 2 Message . . . . : Option indicators not allowed.
* CPD7867 30 1 Message . . . . : Response indicator ignored because of

[jimmy]

Re: error message

Tje Last one was

* CPD7867 30 1 Message . . . . : Response indicator ignored because of error on keyword.

[jamief]

Re: error message

Here is your DDS (Compilable)

     A*%%TS  SD  20060314  074841  FLANARY     REL-V5R3M0  5722-WDS
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
     A                                      CHECK(AB)
     A**************************************************************************
     A          R SUB01                     SFL
     A            EMPNAME       10   O 11 23
     A            EMPCODE       10   O 11  6
     A            EMPDEPT       05   O 11 61
     A**************************************************************************
     A          R CTL01                     SFLCTL(SUB01)
     A                                      SFLSIZ(0010)
     A                                      SFLPAG(0008)
     A                                      CF03(03 'f3 exit')
     A                                      CF12(12 'F12 CANCEL')
     A                                      PAGEDOWN(33)
     A                                      RTNCSRLOC(&#REC &#FLD)
     A                                      BLINK
     A                                      OVERLAY
     A                                      SFLCSRRRN(&WHERE)
     A  50                                  SFLDSP
     A  51                                  SFLDSPCTL
     A  52                                  SFLCLR
     A  33                                  SFLEND(*MORE)
     A            SCRRN          4S 0H      SFLRCDNBR
     A            #REC          10A  H
     A            #FLD          10A  H
     A            WHERE          5S 0H
     A                                  1 29'OCWEN FINANCIAL SOLUTION'
     A                                      COLOR(WHT)
     A                                  3 30'PRINT SELECTED RECORD'
     A                                      DSPATR(UL)
     A                                      COLOR(TRQ)
     A                                  1  6TIME
     A                                  3  6DATE
     A                                      EDTCDE(Y)
     A*           C1DAY         10S 0O  4  6
     A                                  1 70USER
     A                                  3 70SYSNAME
     A                                  6  7'PLACE THE CUSER ON THE RECORD AND -
     A                                      PRESS <ENTER>'
     A                                      COLOR(BLU)
     A                                  9  6'EMP CODE'
     A            C1COD          5A  B 10  6
     A                                  9 32'NAME'
     A                                  9 63'DEPT' 

[jimmy]

Re: error message

thanks jamief

ill try it out and get back