Thanks to Cathlene @ HP and to everyone who responded to my original
posting. The issue is now closed.
As I have already discovered the task on spoolfiles cannot be done --
Cathlene@hp's response is now official --
there have been sr's to request temp build of the spoolfile but lab said NO.
8606167505
---------------------------------------------------------------------------
BUILD of a TEMP SPOOL file does not function properly
Problem Text
CR# JAGad36791
problem
Problem with TEMPORARY spoolfile
Fix Text
fix
Building of a spoolfile should be in the permanent domain, not the TEMP
one.
spoolfiles were not designed to be TEMP.
Cathlene Mc Rae
HP SR. Response Center Engineer
[log in to unmask]
Brian.
On Tue, 6 Nov 2007 11:17:31 -0500, Cathlene Mc Rae
<[log in to unmask]> wrote:
>:copy o17.out.hpspool,myfile;yes
> ^
>The copy operation may only be performed on local, permanent,
>non-spooled disk files. (CIERR 9116)
>:if the spool file is busy.
>
>the following code works on spoolfiles that are not busy:
>
>048000 TEST-PAR.
>049000****************************************************
*
>****
>050000* USING HPCICOMMAND
>051000****************************************************
*
>****
>053000 MOVE 0 TO STATUS-INFO, STATUS-SUBSYS.
>054000 MOVE SPACES TO FILEVAR-VALUE.
>055000 move "copy o14.out.hpspool,myfile;yes "
>056000 TO FILEVAR-VALUE.
>057000 move %15 to FILEVAR-VALUE(38:1).
>058000 CALL INTRINSIC "HPCICOMMAND" USING FILEVAR-VALUE,
>059000 STATUS-INFO.
>060000 IF STATUS-INFO <> 0 THEN
>061000 DISPLAY "ERROR " STATUS-INFO
>062000- " encountered while calling HPCICOMMAND." .
>
>: listf myfile,2
>ACCOUNT= MCRAE GROUP= COBOL
>
>FILENAME CODE ------------LOGICAL RECORD----------- ----SPACE----
> SIZE TYP EOF LIMIT R/B SECTORS #X MX
>
>MYFILE OUTSP 1008B VACS 40 3 1 16 1 *
>
>
>:listf o14.out.hpspool,2
>ACCOUNT= HPSPOOL GROUP= OUT
>
>FILENAME CODE ------------LOGICAL RECORD----------- ----SPACE----
> SIZE TYP EOF LIMIT R/B SECTORS #X MX
>
>O14 OUTSP 1008B VACS 40 3 1 16 1 *
>
>
>:
>hope this helps.
>
>Cathlene Mc Rae
> HP SR. Response Center Engineer
> [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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|