: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 *