Hi, all. This is probably something basic, and I hope you forgive me for asking something that may be right in front of my nose.
1. I don't really understand ILE (working on it!)
2. I have an RPG program where I am trying to submit a report by using a PROC - that seems to be working (so far, so good, right )?
3. In the "called" program, I have to go out to some tables to find out what printer the user wants
4. My file :
When I run, the "DEV" is QPRINT instead of the printer name. When I look at my job and display all file overrides, it looks correct, I think...
I've searched online for awhile today, but I'm just not having any luck. If anyone can point me in the right direction, I would greatly appreciate it.
1. I don't really understand ILE (working on it!)
2. I have an RPG program where I am trying to submit a report by using a PROC - that seems to be working (so far, so good, right )?
3. In the "called" program, I have to go out to some tables to find out what printer the user wants
4. My file :
FH1064DWp O E PRINTER UsrOpn OflInd(*In20)
5. I'm using OVRPRTF to set it up:Cmd = 'OVRPRTF FILE(H1064DWp) splfname(H1064DWP)' +
' DEV(' + PrtrName + ')' +
' COPIES(' + NumCopy + ')' +
' OVRFLW(60)' +
' HOLD(' + WHOLD + ')' +
' SAVE(' + WSAVE + ')' +
' USRDTA(' + 'H1064R' + ')' +
' OVRSCOPE(*JOB)' ;
//' OUTQ(' + PrtrName + ')';
$ExcCmd(Cmd:%Len(Cmd));
Open H1064DWp;
PrtOpen = 'Y';
' DEV(' + PrtrName + ')' +
' COPIES(' + NumCopy + ')' +
' OVRFLW(60)' +
' HOLD(' + WHOLD + ')' +
' SAVE(' + WSAVE + ')' +
' USRDTA(' + 'H1064R' + ')' +
' OVRSCOPE(*JOB)' ;
//' OUTQ(' + PrtrName + ')';
$ExcCmd(Cmd:%Len(Cmd));
Open H1064DWp;
PrtOpen = 'Y';
When I run, the "DEV" is QPRINT instead of the printer name. When I look at my job and display all file overrides, it looks correct, I think...
File . . . . . . . . . . . . . . : H1064DWP
Call level . . . . . . . . . . . : *JOB
Merged . . . . . . . . . . . . . : *NO
Keyword Value
File being overridden . . . . . . : FILE H1064DWP
Device . . . . . . . . . . . . . : DEV ITIBM1872
Overflow line number . . . . . . : OVRFLW 60
Output queue . . . . . . . . . . : OUTQ ITIBM1872
Library . . . . . . . . . . . . . : *LIBL
Copies . . . . . . . . . . . . . : COPIES 1
Save spooled file . . . . . . . . : SAVE *YES
Hold spooled file . . . . . . . . : HOLD *NO
User data . . . . . . . . . . . . : USRDTA H1064R
Call level . . . . . . . . . . . : *JOB
Merged . . . . . . . . . . . . . : *NO
Keyword Value
File being overridden . . . . . . : FILE H1064DWP
Device . . . . . . . . . . . . . : DEV ITIBM1872
Overflow line number . . . . . . : OVRFLW 60
Output queue . . . . . . . . . . : OUTQ ITIBM1872
Library . . . . . . . . . . . . . : *LIBL
Copies . . . . . . . . . . . . . : COPIES 1
Save spooled file . . . . . . . . : SAVE *YES
Hold spooled file . . . . . . . . : HOLD *NO
User data . . . . . . . . . . . . : USRDTA H1064R
I've searched online for awhile today, but I'm just not having any luck. If anyone can point me in the right direction, I would greatly appreciate it.
Comment