1. Timestamp
Several MPE commands, when redirected to a disk file, will output
a timestamp as their first line.
2. After executing this script, you can do a listf to see that you do
have a file JOBLIST.DATA, but it is empty.
Then do a listftemp and you will see that you have a temp file
JOBLIST.DATA with data in it, but it is not a msg file.
The input statement is always reading the 1st line of the temp file,
which is a timestamp.
When redirecting output, the CI creates a new variable length,
256 byte standard tempfile. Unless you tell it to use other
file attributes by way of a file equation.
So for a quick fix, you need a file equattion, and the command to use
it.
--------------------------------------------------------------
PURGE JOBLIST.DATA
BUILD JOBLIST.DATA;REC=-80,,F,ASCII;DISC=10000;MSG
FILE JOB=JOBLIST.DATA,OLDTEMP
SHOWJOB JOB=@J > *JOB
SETVAR JOBLIST_EOF, FINFO("JOBLIST.DATA","EOF")
ECHO !JOBLIST_EOF
SETVAR JOB_COUNT, 0
WHILE JOB_COUNT < JOBLIST_EOF
SETVAR JOB_COUNT, JOB_COUNT + 1
INPUT JOB_NAME < JOBLIST.DATA
ECHO !JOB_NAME
SETVAR FINAL_JOB_NAME REPL("!JOB_NAME",",","")
ECHO !FINAL_JOB_NAME
SETVAR POS_VALUE POS("!HPACCOUNT","!FINAL_JOB_NAME")
IF !POS_VALUE > 0
ECHO !JOB_NAME
ENDIF
ENDWHILE
------------------------------------------------------------------
Keven Miller
[log in to unmask]
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|