HP3000-L Archives

October 2003, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Keven Miller <[log in to unmask]>
Reply To:
Keven Miller <[log in to unmask]>
Date:
Mon, 20 Oct 2003 04:41:45 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (46 lines)
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 *

ATOM RSS1 RSS2