Re: API QSPGETF

[Stefan.Tageson@xxxxxxxxxxx]

Henrik,
This is all I've seen so far

(See attached file: splfpf.htm)

Regards

Stefan Tageson
Intentia Consulting Sverige AB
Propellergatan 1, SE-211 19 Malmö, Sweden
Phone: +46 (0)40 691 35 00
Cell: +46 (0)733 913 813
Fax: +46 (0)40 691 3900
E-mail: stefan.tageson@intentia.se


                                                                                
                                         
                    Henrik Krebs                                                
                                         
                    <hkrebs@hkrebs.dk>         To:     
<MIDRANGE-L@midrange.com>                                         
                    Sent by:                   cc:                              
                                         
                    owner-midrange-l@mi        Subject:     API QSPGETF         
                                         
                    drange.com                                                  
                                         
                                                                                
                                         
                                                                                
                                         
                    2001-05-31 06:59                                            
                                         
                    Please respond to                                           
                                         
                    MIDRANGE-L                                                  
                                         
                                                                                
                                         
                                                                                
                                         



Where do I find the documentation for API QSPGETF?



---Internet e-Mail Disclaimer---
This e-mail and any files transmitted with it are confidential and intended
solely for the use of the individual or entity to whom they are addressed.
If you are not the intended recipient you are notified that any use,
disclosure, copying or distribution of the information is prohibited. In
such case, you should destroy this message and kindly notify the sender by
reply e-mail.The views expressed in this e-mail and any attachments are
personal and, unless stated explicitly, do not represent the views of
Intentia. Furthermore, Intentia will not be bound by this e-mail.

Title: Tip/Hint: Using QSPGETF and QSPPUTF APIs with Command Source

IBM AS/400 Support Line
Technical Document


Document Number - 8011926 - AVAILABLE
____________________________________________________________

Functional Area:	Print
Product/Component:	Operating System/400 - OS/400 - PRINT/SPOOL (5716SS1SP) Operating System/400 - OS/400 - PRINT/SPOOL (5763SS1SP)
Release:	ALL
Last Update:	10/06/97
Next Review:	09/12/98
Classification:	Public Use

____________________________________________________________

TITLE: ...... Using QSPGETF and QSPPUTF APIs with Command Source


DESCRIPTION:

Using QSPGETF and QSPPUTF APIs with Command Source

This document covers usage of the QSPGETF and QSPPUTF print APIs. The command source for the QSPGETF API is supplied if the user wants to facility usage at a command entry screen. This is intended for archiving or AS/400 support diagnostics when the spoolfile printer device type is *AFPDS, *IPDS, or special controls in the spoolfile that does not allow the CPYSPLF command to work.

These are the instructions to archive the spool file to a physical file. Use QSPPUTF to restore as a spoolfile.

Let the program create the file for you. If you have problems with it creating, then create before running the program.

Enter at the command line:

CRTPF FILE( ) RCDLEN(4083) MAXMBRS(*NOMAX) +
SIZE(*NOMAX) LVLCHK(*NO)

Example usage of the QSPGETF API to write to a member in your database file:

CALL PGM(QSYS/QSPGETF) PARM('QPRINT ' 'SPOOLDB USER1LIB ' 'DSP03 USER1 010160' X'0001' 'MBR1 ')

This API call dumps a spool file QPRINT to a database file SPOOLDB in USER1LIB library, member MBR1. The spool file number is 1. The spool file job is 010160/user1/dsp03. This information can be seen in the WRKSPLF screen by pressing F11 or using Optioin 2.

The parameter values must be in uppercase and there must be a space between the single quotation marks.
Following are the parts to the parameter list:

o	The 10-character spool file name.
o	A 20-character database file and library. Allow for 10 characters for each name.
o	A 26-character qualified job name for the spool file. This name can be seen in the WRKSPLF screen (press F11). Allow 10 characters each for the job name and user, and 6 positions for the job number.
o	Numeric file number, 1 through 9999. Use the hexadecimal representation as in the example. Make sure a space is inserted after the previous single quotation mark and the X'0001'.
o	10 characters for the database member.

To restore the spool file from the database follow the example and instructions below.

Example usage of the QSPPUTF API to create a spoolfile from a member in your database file:

CALL PGM(QSYS/QSPPUTF) PARM('SPOOLDB USER1LIB ' 'USER1 QGPL ' 'MBR1 ')

This API call creates a spool file in USER1 output queue in QGPL library from the MBR1 member in the SPOOLDB database file.

The parameter values must be in uppercase, and there must be a space between the quotes. Following are the parts to the parameter list:

o	20-character database file and library. Allow for 10 characters for each name.
o	20-character output queue name and library. Allow for 10 characters for each name.
o	10 characters for the database member.

The above API programs can be run from the command line or from a CL program. If you are going to use these APIs on a regular basis, a command interface would be more convenient. The following is the command source for the QSPGETF API.

The source code for command GETSPLF, command interface to QSYS/QSPGETF follows. To compile the command, on the OS/400 command line type the following:

CRTCMD CMD(lib_name/GETSPLF) PGM(QSYS/QSPGETF) +
SRCFILE(lib_name/file_name) SRCMBR(*CMD)

GETSPLF: CMD PROMPT('Get Spooled File')
PARM KWD(FILE) TYPE(*NAME) LEN(10) RTNVAL(*NO) RSTD(*NO) MIN(1) +
MAX(1) FILE(*IN) FULL(*NO) EXPR(*YES) VARY(*NO) PASSATR(*NO) +
PROMPT('Spooled file')
PARM KWD(TOFILE) TYPE(Q1) RTNVAL(*NO) MIN(1) MAX(1) FILE(*OUT) +
PROMPT('To data base file')
PARM KWD(JOB) TYPE(Q2) RTNVAL(*NO) DFT(*) SNGVAL(*) MIN(0) MAX(1) +
FILE(*NO) PROMPT('Job name')
PARM KWD(SPLNBR) TYPE(*INT2) RTNVAL(*NO) RSTD(*NO) DFT(*ONLY) +
RANGE(1 9999) SPCVAL((*ONLY 0) (*LAST -1)) MIN(0) MAX(1) +
EXPR(*YES) VARY(*NO) PASSATR(*NO) PROMPT('Spooled file number')
PARM KWD(TOMBR) TYPE(*NAME) LEN(10) RTNVAL(*NO) RSTD(*NO) +
DFT(*FIRST) SPCVAL(*FIRST) MIN(0) MAX(1) FILE(*NO) FULL(*NO) +
EXPR(*YES) VARY(*NO) PASSATR(*NO) PROMPT('To member')
Q1: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) MIN(1) FULL(*NO) VARY(*NO) +
EXPR(*YES) PASSATR(*NO)
QUAL TYPE(*NAME) LEN(10) RSTD(*NO) DFT(*LIBL) MIN(0) FULL(*NO) +
SPCVAL((*LIBL) (*CURLIB *CURLIB)) VARY(*NO) EXPR(*YES) +
PASSATR(*NO) PROMPT('Library')
Q2: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) MIN(1) FULL(*NO) +
VARY(*NO) EXPR(*YES) PASSATR(*NO)
QUAL TYPE(*NAME) LEN(10) RSTD(*NO) MIN(0) FULL(*NO) VARY(*NO) +
EXPR(*YES) PASSATR(*NO) PROMPT('User')
QUAL TYPE(*CHAR) LEN(6) RSTD(*NO) RANGE(000000 999999) MIN(0) +
FULL(*YES) EXPR(*YES) PASSATR(*NO) PROMPT('Number')

----------------------------------------------------------------------
The source code for command PUTSPLF, command interface to QSYS/QSPPUTF follows (see Note below). To compile the command, on the OS/400 command line type the following:

CRTCMD CMD(lib_name/PUTSPLF) PGM(QSYS/QSPPUTF) +
SRCFILE(lib_name/file_name) SRCMBR(*CMD)

Note: The source is not included, Use the GETSPLF as an example.


Document Info

Submitter:	CN=Larry Esser/OU=AS400 Service/O=IBM
Authors:
Keywords:
Related Documents:
Related APARs/PMRs:
Queue:
Team Leader:
Document Nominated:	VM