665 lines
40 KiB
HTML
665 lines
40 KiB
HTML
|
<?xml version="1.0" encoding="UTF-8"?>
|
||
|
|
<!DOCTYPE html
|
||
|
|
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
||
|
|
<html lang="en-us" xml:lang="en-us">
|
||
|
|
<head>
|
||
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
||
|
|
<meta name="security" content="public" />
|
||
|
|
<meta name="Robots" content="index,follow" />
|
||
|
|
<meta http-equiv="PICS-Label" content='(PICS-1.1 "http://www.icra.org/ratingsv02.html" l gen true r (cz 1 lz 1 nz 1 oz 1 vz 1) "http://www.rsac.org/ratingsv01.html" l gen true r (n 0 s 0 v 0 l 0) "http://www.classify.org/safesurf/" l gen true r (SS~~000 1))' />
|
||
|
|
<meta name="DC.Type" content="reference" />
|
||
|
|
<meta name="DC.Title" content="Examples: Moving spooled files to and from optical storage" />
|
||
|
|
<meta name="abstract" content="This topic includes some basic optical programming examples using i5/OS control language (CL) commands." />
|
||
|
|
<meta name="description" content="This topic includes some basic optical programming examples using i5/OS control language (CL) commands." />
|
||
|
|
<meta name="DC.Relation" scheme="URI" content="tipsandtechniques.htm" />
|
||
|
|
<meta name="copyright" content="(C) Copyright IBM Corporation 2000, 2006" />
|
||
|
|
<meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 2000, 2006" />
|
||
|
|
<meta name="DC.Format" content="XHTML" />
|
||
|
|
<meta name="DC.Identifier" content="clexamples" />
|
||
|
|
<meta name="DC.Language" content="en-us" />
|
||
|
|
<!-- All rights reserved. Licensed Materials Property of IBM -->
|
||
|
|
<!-- US Government Users Restricted Rights -->
|
||
|
|
<!-- Use, duplication or disclosure restricted by -->
|
||
|
|
<!-- GSA ADP Schedule Contract with IBM Corp. -->
|
||
|
|
<link rel="stylesheet" type="text/css" href="./ibmdita.css" />
|
||
|
|
<link rel="stylesheet" type="text/css" href="./ic.css" />
|
||
|
|
<title>Examples: Moving spooled files to and from optical storage</title>
|
||
|
|
</head>
|
||
|
|
<body id="clexamples"><a name="clexamples"><!-- --></a>
|
||
|
|
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
|
||
|
|
<h1 class="topictitle1">Examples: Moving spooled files to and from optical storage</h1>
|
||
|
|
<div><p>This topic includes some basic optical programming examples using i5/OS™ control
|
||
|
|
language (CL) commands.</p>
|
||
|
|
<div class="section"><div class="p">This topic includes examples of four CL commands that can be used
|
||
|
|
to move spooled files and database members to and from optical storage: <ul><li>Copy stream file</li>
|
||
|
|
<li>Copy database to optical</li>
|
||
|
|
<li>Copy spooled file to optical</li>
|
||
|
|
<li>Copy optical to database</li>
|
||
|
|
</ul>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div class="example"><h4 class="sectiontitle">Copy Stream File: Command source</h4><div class="note"><span class="notetitle">Note:</span> By using the
|
||
|
|
following code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
|
||
|
|
<pre><samp class="codeph">/***************************************************************************/
|
||
|
|
/* */
|
||
|
|
/* COMMAND NAME: CPYSTRF */
|
||
|
|
/* */
|
||
|
|
/* COMMAND TITLE: Copy stream file */
|
||
|
|
/* */
|
||
|
|
/* COMMAND DESCRIPTION: Copy stream file between two file systems */
|
||
|
|
/* */
|
||
|
|
/***************************************************************************/
|
||
|
|
CMD PROMPT('Copy Stream File')
|
||
|
|
|
||
|
|
PARM KWD(SRCFILE) TYPE(*CHAR) LEN(300) MIN(1) +
|
||
|
|
MAX(1) PROMPT('Source file name') +
|
||
|
|
VARY(*YES)
|
||
|
|
PARM KWD(TGTFILE) TYPE(*CHAR) LEN(300) MIN(1) +
|
||
|
|
MAX(1) PROMPT('Target file name') +
|
||
|
|
VARY(*YES)
|
||
|
|
PARM KWD(RPLFILE)TYPE(*CHAR) LEN(6) DFT(*NO) +
|
||
|
|
SPCVAL((*NO '0 ') (*YES '1 ')) +
|
||
|
|
PROMPT('Replace existing file')</samp></pre>
|
||
|
|
</div>
|
||
|
|
<div class="example"><h4 class="sectiontitle">Copy Stream File: CL program source</h4><div class="note"><span class="notetitle">Note:</span> By using
|
||
|
|
the following code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
|
||
|
|
This
|
||
|
|
CL sample can be used to copy stream files between file systems.<pre><samp class="codeph">/**********************************************************************/
|
||
|
|
/* */
|
||
|
|
/* PROGRAM: CPYSTRF (Copy stream file) */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* DESCRIPTION: */
|
||
|
|
/* This is the CL program for sample CL command CPYSTRF. This */
|
||
|
|
/* program can be used to copy stream files between file */
|
||
|
|
/* systems. The actual copy is done by making a call to */
|
||
|
|
/* the HFS API program QHFCPYSF (Copy stream file). */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* INPUT PARAMETERS: */
|
||
|
|
/* - Complete source path */
|
||
|
|
/* Example: /filesystem/directory1/directoryx/file */
|
||
|
|
/* /QDLS/DIRA/DIRB/FILE01 */
|
||
|
|
/* - or - */
|
||
|
|
/* /filesystem/volume/directory1/directoryx/file */
|
||
|
|
/* /QOPT/VOLN01/DIRA/DIRB/FILE01 */
|
||
|
|
/* - Complete target path */
|
||
|
|
/* Note: Except for the file the path must already exist. */
|
||
|
|
/* Example: /filesystem/directory1/directoryx/file */
|
||
|
|
/* /QDLS/DIRA/DIRB/FILE01 */
|
||
|
|
/* - or - */
|
||
|
|
/* /filesystem/volume/directory1/directoryx/file */
|
||
|
|
/* /QOPT/VOLN01/DIRA/DIRB/FILE01 */
|
||
|
|
/* - Replace existing target file */
|
||
|
|
/* *YES - replace existing file */
|
||
|
|
/* *NO - do not replace existing file */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* LOGIC: */
|
||
|
|
/* - Separate source file length and value */
|
||
|
|
/* - Ensure source path is converted to upper case */
|
||
|
|
/* - Separate target file length and value */
|
||
|
|
/* - Ensure target path is converted to upper case */
|
||
|
|
/* - Call copy stream file */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* EXAMPLE: */
|
||
|
|
/* The example will copy document THISWEEK from folder BILLS */
|
||
|
|
/* to optical volume YEAR1993. The document will be put into */
|
||
|
|
/* directory /BILLS/DEC as file WEEK50. */
|
||
|
|
/* Folders are stored in file system DLS (document library services)*/
|
||
|
|
/* */
|
||
|
|
/* CPYSTRF SRCFILE('/QDLS/BILLS/THISWEEK') */
|
||
|
|
/* TGTFILE('/QOPT/YEAR1993/BILLS/DEC/WEEK50') */
|
||
|
|
/* RPLFILE(*NO) */
|
||
|
|
/* */
|
||
|
|
/**********************************************************************/
|
||
|
|
PGM PARM(&SRCFILE &TGFILE &CPYINFO);
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Input parameters */
|
||
|
|
/****************************************************************/
|
||
|
|
DCL VAR(&SRCFILE); TYPE(*CHAR) LEN(300)
|
||
|
|
DCL VAR(&TGTFILE); TYPE(*CHAR) LEN(300)
|
||
|
|
DCL VAR(&CPYINFO); TYPE(*CHAR) LEN(6)
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Program variables */
|
||
|
|
/****************************************************************/
|
||
|
|
DCL VAR(&SRCLEN); TYPE(*CHAR) LEN(4) +
|
||
|
|
VALUE(X'00000000')
|
||
|
|
DCL VAR(&TGTLEN); TYPE(*CHAR) LEN(4) +
|
||
|
|
VALUE(X'00000000')
|
||
|
|
DCL VAR(&ERRCODE); TYPE(*CHAR) LEN(4) +
|
||
|
|
VALUE(X'00000000')
|
||
|
|
DCL VAR(&COUNT); TYPE(*DEC) LEN(5 0)
|
||
|
|
DCL VAR(&TBL); TYPE(*CHAR) LEN(10) +
|
||
|
|
VALUE('QSYSTRNTBL')
|
||
|
|
DCL VAR(&LIB); TYPE(*CHAR) LEN(10) +
|
||
|
|
VALUE('QSYS ')
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Monitor for any messages sent to this program */
|
||
|
|
/****************************************************************/
|
||
|
|
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(DONE))
|
||
|
|
MONMSG MSGID(OPT0000) EXEC(GOTO CMDLBL(DONE))
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* The HFS API needs to be passed the file and the file length. */
|
||
|
|
/* By coding the VARY(*YES) parameter on the command definition */
|
||
|
|
/* for the source and target file we are passed the length of */
|
||
|
|
/* entered value as a 2 byte binary field which precedes the */
|
||
|
|
/* actual value entered. */
|
||
|
|
/****************************************************************/
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Separate source file length and file value. Ensure source */
|
||
|
|
/* file is upper case. */
|
||
|
|
/****************************************************************/
|
||
|
|
CHGVAR VAR(%SST(&SRCLEN 3 2)) VALUE(%SST(&SRCFILE 1 2))
|
||
|
|
CHGVAR VAR(%SST(&SRCFILE 1 300)) VALUE(%SST(&SRCFILE 3 298))
|
||
|
|
|
||
|
|
CHGVAR VAR(&COUNT); VALUE(%BIN(&SRCLEN 3 2))
|
||
|
|
CALL QDCXLATE (&COUNT +
|
||
|
|
&SRCFILE +
|
||
|
|
&TBL +
|
||
|
|
&LIB)
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Separate target file length and file value. Ensure target */
|
||
|
|
/* file is upper case. */
|
||
|
|
/****************************************************************/
|
||
|
|
CHGVAR VAR(%SST(&TGTLEN 3 2)) VALUE(%SST(&TGTFILE 1 2))
|
||
|
|
CHGVAR VAR(%SST(&TGTFILE 1 300)) VALUE(%SST(&TGTFILE 3 298))
|
||
|
|
|
||
|
|
CHGVAR VAR(&COUNT); VALUE(%BIN(&TGTLEN 3 2))
|
||
|
|
CALL QDCXLATE (&COUNT +
|
||
|
|
&TGTFILE +
|
||
|
|
&TBL +
|
||
|
|
&LIB)
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Call the copy stream file HFS API to copy the source file to */
|
||
|
|
/* the target file. */
|
||
|
|
/****************************************************************/
|
||
|
|
CALL QHFCPYSF (&SRCFILE +
|
||
|
|
&SRCLEN +
|
||
|
|
&CPYINFO +
|
||
|
|
&TGTFILE +
|
||
|
|
&TGTLEN +
|
||
|
|
&ERRCODE)
|
||
|
|
|
||
|
|
SNDPGMMSG MSG('CPYSTRF completed successfully')
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
DONE:
|
||
|
|
SNDPGMMSG MSGID(OPT0125) MSGF(QSYS/QCPFMSG) +
|
||
|
|
MSGDTA(CPYSTRF) MSGTYPE(*ESCAPE)
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
ENDPGM</samp></pre>
|
||
|
|
</div>
|
||
|
|
<div class="example"><h4 class="sectiontitle">Copy database file to optical file: command source</h4><div class="note"><span class="notetitle">Note:</span> By
|
||
|
|
using the following code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
|
||
|
|
<pre><samp class="codeph">/********************************************************************/
|
||
|
|
/* */
|
||
|
|
/* COMMAND NAME: CPYDBOPT */
|
||
|
|
/* */
|
||
|
|
/* COMMAND TITLE: Copy database to optical */
|
||
|
|
/* */
|
||
|
|
/* DESCRIPTION: Copy database file to an optical file */
|
||
|
|
/* */
|
||
|
|
/********************************************************************/
|
||
|
|
CPYDBOPT: CMD PROMPT('Copy DB to Optical')
|
||
|
|
|
||
|
|
PARM KWD(FRMFILE) TYPE(QUAL1) MIN(1) +
|
||
|
|
PROMPT('From file')
|
||
|
|
|
||
|
|
PARM KWD(FRMMBR) TYPE(*NAME) LEN(10) +
|
||
|
|
SPCVAL((*FIRST)) EXPR(*YES) MIN(1) +
|
||
|
|
PROMPT('From member')
|
||
|
|
|
||
|
|
PARM KWD(TGTFILE) TYPE(*CHAR) LEN(300) +
|
||
|
|
MIN(1) EXPR(*YES) +
|
||
|
|
PROMPT('Target file')
|
||
|
|
QUAL1: QUAL TYPE(*NAME) LEN(10)
|
||
|
|
QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) +
|
||
|
|
SPCVAL((*LIBL) (*CURLIB)) +
|
||
|
|
PROMPT('Library')</samp></pre>
|
||
|
|
</div>
|
||
|
|
<div class="example"><h4 class="sectiontitle">Copy database file to optical file: CL program source</h4><div class="note"><span class="notetitle">Note:</span> By
|
||
|
|
using the following code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
|
||
|
|
This
|
||
|
|
CL sample can be used to copy a member from a database file to optical storage.<pre><samp class="codeph">/**********************************************************************/
|
||
|
|
/* */
|
||
|
|
/* PROGRAM: CPYDBOPT (Copy database to Optical) */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* DESCRIPTION: */
|
||
|
|
/* This is the CL program for sample CL command CPYDBOPT. This */
|
||
|
|
/* program can be used to copy a member from a database file to */
|
||
|
|
/* optical storage. */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* DEPENDENCIES: */
|
||
|
|
/* - The sample command and program CPYSTRF exists. */
|
||
|
|
/* - There is an existing folder named OPTICAL.FLR */
|
||
|
|
/* This folder is used for temporary storage when copying */
|
||
|
|
/* from database to optical. It is assumed that this folderis */
|
||
|
|
/* empty and that the user will delete anything which gets */
|
||
|
|
/* copied into it. */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* INPUT PARAMETERS: */
|
||
|
|
/* -From file */
|
||
|
|
/* - From member */
|
||
|
|
/* - Complete target path */
|
||
|
|
/* Assumption: - Except for the file the complete path currently */
|
||
|
|
/* exists. */
|
||
|
|
/* - File does not currently exist. */
|
||
|
|
/* Example: /filesystem/volume/directory1/directoryx/file */
|
||
|
|
/* /QOPT/VOLN01/DIRA/DIRB/FILE01 */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* LOGIC: */
|
||
|
|
/* - Separate file and library */
|
||
|
|
/* - Copy file to folder */
|
||
|
|
/* - Build source file */
|
||
|
|
/* - Copy file from Document Library Service (DLS) to OPT */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* EXAMPLE: */
|
||
|
|
/* The example will copy member MYMEMBER in file MYFILE in library */
|
||
|
|
/* MYLIB to optical storage. It will be stored as file */
|
||
|
|
/* MYFILE.MYMEMBER in directory /MYLIB on volume VOLN01. */
|
||
|
|
/* */
|
||
|
|
/* CPYDBOPT FRMFILE(MYLIB/MYFILE) */
|
||
|
|
/* FRMMBR(MYMEMBER) */
|
||
|
|
/* TGTFILE('/QOPT/VOLN01/MYLIB/MYFILE.MYMEMBER') */
|
||
|
|
/* */
|
||
|
|
/**********************************************************************/
|
||
|
|
PGM PARM(&FROMFILE &FROMMBR &TGTFILE);
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Input parameters */
|
||
|
|
/****************************************************************/
|
||
|
|
DCL VAR(&FROMFILE); TYPE(*CHAR) LEN(20)
|
||
|
|
DCL VAR(&FROMMBAR); TYPE(*CHAR) LEN(10)
|
||
|
|
DCL VAR(&TGTFILE); TYPE(*CHAR) LEN(300)
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Program variables */
|
||
|
|
/****************************************************************/
|
||
|
|
DCL VAR(&FILE); TYPE(*CHAR) LEN(10)
|
||
|
|
DCL VAR(&LIB); TYPE(*CHAR) LEN(10)
|
||
|
|
DCL VAR(&SRCFILE); TYPE(*CHAR) LEN(28) +
|
||
|
|
VALUE('/QDLS/OPTICAL.FLR/xxxxxxxxxx')
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Monitor for all messages sent to this program */
|
||
|
|
/****************************************************************/
|
||
|
|
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(DONE))
|
||
|
|
MONMSG MSGID(IWS0000) EXEC(GOTO CMDLBL(DONE))
|
||
|
|
MONMSG MSGID(OPT0000) EXEC(GOTO CMDLBL(DONE))
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Separate file and library names then copy the DB file to a */
|
||
|
|
/* PC folder. */
|
||
|
|
/****************************************************************/
|
||
|
|
CHGVAR VAR(&FILE); VALUE(%SST(&FROMFILE 1 10))
|
||
|
|
CHGVAR VAR(&LIB); VALUE(%SST(&FROMFILE 11 10))
|
||
|
|
|
||
|
|
CPYTOPCD FROMFILE(&LIB/&FILE); +
|
||
|
|
TOFLR(OPTICAL.FLR) +
|
||
|
|
FROMMBR(&FROMMBR); +
|
||
|
|
TRNTBL(*NONE)
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Complete the source file path name with the member and copy */
|
||
|
|
/* the stream file from DLS to optical */
|
||
|
|
/****************************************************************/
|
||
|
|
CHGVAR VAR(%SST(&SRCFILE 19 10)) VALUE(&FROMMBR);
|
||
|
|
|
||
|
|
CPYSTRF SRCFILE(&SRCFILE); +
|
||
|
|
TGTFILE(&TGTFILE);
|
||
|
|
|
||
|
|
SNDPGMMSG MSG('CPYDBOPT completed successfully')
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
DONE:
|
||
|
|
SNDPGMMSG MSGID(OPT0125) MSGF(QSYS/QCPFMSG) +
|
||
|
|
MSGDTA(CPYDBOPT) MSGTYPE(*ESCAPE)
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
ENDPGM</samp></pre>
|
||
|
|
</div>
|
||
|
|
<div class="example"><h4 class="sectiontitle">Copy spooled file to optical: command source</h4><div class="note"><span class="notetitle">Note:</span> By
|
||
|
|
using the following code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
|
||
|
|
<pre><samp class="codeph">/********************************************************************/
|
||
|
|
/* */
|
||
|
|
/* COMMAND NAME: CPYSPLFOPT */
|
||
|
|
/* */
|
||
|
|
/* COMMAND TITLE: Copy spooled file to optical */
|
||
|
|
/* */
|
||
|
|
/* DESCRIPTION: Copy spooled file to an optical file */
|
||
|
|
/* */
|
||
|
|
/********************************************************************/
|
||
|
|
CPYSPLFO: CMD PROMPT('Copy Spooled File to Optical')
|
||
|
|
|
||
|
|
PARM KWD(FRMFILE) TYPE(*NAME) LEN(10) +
|
||
|
|
MIN(1) +
|
||
|
|
PROMPT('From file')
|
||
|
|
|
||
|
|
PARM KWD(TGTFILE) TYPE(*CHAR) LEN(300) +
|
||
|
|
MIN(1) EXPR(*YES) +
|
||
|
|
PROMPT('Target file')
|
||
|
|
|
||
|
|
PARM KWD(JOB) TYPE(Q2) +
|
||
|
|
DFT(*) SNGVAL(*) +
|
||
|
|
MIN(0) MAX(1) +
|
||
|
|
PROMPT('Jobname')
|
||
|
|
|
||
|
|
PARM KWD(SPLNBR) TYPE(*CHAR) LEN(5) +
|
||
|
|
SPCVAL((*ONLY) (*LAST)) DFT(*ONLY) +
|
||
|
|
PROMPT('Spool number')
|
||
|
|
|
||
|
|
Q2: QUAL TYPE(*NAME) LEN(10) +
|
||
|
|
MIN(1) +
|
||
|
|
EXPR(*YES)
|
||
|
|
|
||
|
|
QUAL TYPE(*NAME) LEN(10) +
|
||
|
|
EXPR(*YES) +
|
||
|
|
PROMPT('User')
|
||
|
|
|
||
|
|
QUAL TYPE(*CHAR) LEN(6) +
|
||
|
|
RANGE(000000 999999) +
|
||
|
|
EXPR(*YES) FULL(*YES) +
|
||
|
|
PROMPT('Number')</samp></pre>
|
||
|
|
</div>
|
||
|
|
<div class="example"><h4 class="sectiontitle">Copy spooled file to optical: CL program source</h4><div class="note"><span class="notetitle">Note:</span> By
|
||
|
|
using the following code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
|
||
|
|
This
|
||
|
|
CL sample can be used to copy a spooled file to optical storage.<pre><samp class="codeph">/*********************************************************************/
|
||
|
|
/* */
|
||
|
|
/* PROGRAM: CPYSPLFOPT (Copy Spooled File to Optical) */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* DESCRIPTION: */
|
||
|
|
/* This is the CL program for sample CL command CPYSPLFOPT. This */
|
||
|
|
/* program can be used to copy a spooled file to optical storage. */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* DEPENDENCIES: */
|
||
|
|
/* - The sample command and program CPYDBOPT exists. */
|
||
|
|
/* - The sample command and program CPYSTRF exists. */
|
||
|
|
/* - There is an existing folder named OPTICAL.FLR */
|
||
|
|
/* This folder is used for temporary storage when copying */
|
||
|
|
/* from spooled files to optical. It is assumed that this folder */
|
||
|
|
/* is empty and that the user will delete anything which gets */
|
||
|
|
/* copied into it. */
|
||
|
|
/* - This CL program uses the CL command CPYSPLF to copy the */
|
||
|
|
/* spooled files to a physical file before copying them to */
|
||
|
|
/* optical. When you use the CPYSPLF command to copy */
|
||
|
|
/* a spooled file to a physical file, certain information can */
|
||
|
|
/* be lost or changed. Before using this command please */
|
||
|
|
/* refer to the CL Reference Book for the limitations and */
|
||
|
|
/* restrictions of the CPYSPLF command. */
|
||
|
|
/* - There is an existing file named LISTINGS in library QUSRSYS. */
|
||
|
|
/* It is assumed that this file contains no existing members */
|
||
|
|
/* and that any members that are created will be deleted by the */
|
||
|
|
/* user. The record length of the file is 133. */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* INPUT PARAMETERS: */
|
||
|
|
/* - From file */
|
||
|
|
/* Specify the name of the spooled file to be copied. */
|
||
|
|
/* - Target file */
|
||
|
|
/* Assumption: Except for the file the path must already exist. */
|
||
|
|
/* Example: /filesystem/volume/directory1/directoryx/file */
|
||
|
|
/* /QOPT/VOLN01/DIRA/DIRB/FILE01 */
|
||
|
|
/* - Job */
|
||
|
|
/* Specify the name of the job that created the spooled file */
|
||
|
|
/* which is to be copied. The possible values are: */
|
||
|
|
/* The job that issued this command is the job that */
|
||
|
|
/* created the spooled file. */
|
||
|
|
/* - or - */
|
||
|
|
/* job-name Specify the name of the job that created the */
|
||
|
|
/* spooled file. */
|
||
|
|
/* user-name Specify the user name that identifies the user */
|
||
|
|
/* profile under which the job was run. */
|
||
|
|
/* job-number Specify the system assigned job number. */
|
||
|
|
/* - Spool number */
|
||
|
|
/* If there are multiple files for a job specify the files */
|
||
|
|
/* spool number. */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* LOGIC: */
|
||
|
|
/* - Separate job into its three parts: job name, user, job number */
|
||
|
|
/* - Copy spooled files to database */
|
||
|
|
/* - Copy database to optical */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* EXAMPLE: */
|
||
|
|
/* The example will copy spooled file QSYSPRT spool number 2 which */
|
||
|
|
/* the current process has printed to optical storage. */
|
||
|
|
/* It will be stored on volume YEAR92 in directory */
|
||
|
|
/* /DEC/WEEK01/MONDAY as file INVOICES */
|
||
|
|
/* */
|
||
|
|
/* CPYSPLFO SPLFILE(QSYSPRT) */
|
||
|
|
/* TGTFILE('/QOPT/YEAR92/DEC/WEEK01/MONDAY/INVOICES') */
|
||
|
|
/* SPLNBR(2) */
|
||
|
|
/* */
|
||
|
|
/*********************************************************************/
|
||
|
|
PGM PARM(&FROMFILE &TGTFILE &JOB &SPLNBR);
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Input parameters */
|
||
|
|
/****************************************************************/
|
||
|
|
DCL VAR(&FROMFILE); TYPE(*CHAR) LEN(10)
|
||
|
|
DCL VAR(&TGTFILE); TYPE(*CHAR) LEN(300)
|
||
|
|
DCL VAR(&JOB); TYPE(*CHAR) LEN(26)
|
||
|
|
DCL VAR(&SPLNBR); TYPE(*CHAR) LEN(5)
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Program variables */
|
||
|
|
/****************************************************************/
|
||
|
|
DCL VAR(&JNAME); TYPE(*CHAR) LEN(10)
|
||
|
|
DCL VAR(&JUSER); TYPE(*CHAR) LEN(10)
|
||
|
|
DCL VAR(&JNUM); TYPE(*CHAR) LEN(6)
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Monitor for all messages that can be signalled */
|
||
|
|
/****************************************************************/
|
||
|
|
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(DONE))
|
||
|
|
MONMSG MSGID(OPT0000) EXEC(GOTO CMDLBL(DONE))
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Separate each part of the job name and call the copy spool */
|
||
|
|
/* file command using the current job or the specified name. */
|
||
|
|
/****************************************************************/
|
||
|
|
CHGVAR VAR(&JNAME); VALUE(%SST(&JOB 1 10))
|
||
|
|
CHGVAR VAR(&JUSER); VALUE(%SST(&JOB 11 10))
|
||
|
|
CHGVAR VAR(&JNUM); VALUE(%SST(&JOB 21 6))
|
||
|
|
|
||
|
|
IF COND(&JNAME *EQ '*') THEN(DO)
|
||
|
|
CPYSPLF FILE(&FROMFILE); +
|
||
|
|
TOFILE(QUSRSYS/LISTINGS) +
|
||
|
|
TOMBR(&FROMFILE); +
|
||
|
|
SPLNBR(&SPLNBR); +
|
||
|
|
CTLCHAR(*FCFC)
|
||
|
|
ENDDO
|
||
|
|
|
||
|
|
ELSE DO
|
||
|
|
CPYSPLF FILE(&FROMFILE); +
|
||
|
|
TOFILE(QUSRSYS/LISTINGS) +
|
||
|
|
TOMBR(&FROMFILE); +
|
||
|
|
JOB(&JNUM/&JUSER/&JNAME); +
|
||
|
|
SPLNBR(&SPLNBR); +
|
||
|
|
CTLCHAR(*FCFC)
|
||
|
|
ENDDO
|
||
|
|
|
||
|
|
/****************************************************************/
|
||
|
|
/* Copy the database file to optical storage */
|
||
|
|
/****************************************************************/
|
||
|
|
CPYDBOPT FRMFILE(QUSRSYS/LISTINGS) +
|
||
|
|
FRMMBR(&FROMFILE); +
|
||
|
|
TGTFILE(&TGTFILE);
|
||
|
|
|
||
|
|
SNDPGMMSG MSG('CPYSPLFOPT completed successfully')
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
DONE:
|
||
|
|
SNDPGMMSG MSGID(OPT0125) MSGF(QSYS/QCPFMSG) +
|
||
|
|
MSGDTA(CPYSPLFOPT) MSGTYPE(*ESCAPE)
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
ENDPGM</samp></pre>
|
||
|
|
</div>
|
||
|
|
<div class="example"><h4 class="sectiontitle">Copy optical to database: command source</h4><div class="note"><span class="notetitle">Note:</span> By using
|
||
|
|
the following code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
|
||
|
|
<pre><samp class="codeph">/********************************************************************/
|
||
|
|
/* */
|
||
|
|
/* COMMAND NAME: CPYOPTDB */
|
||
|
|
/* */
|
||
|
|
/* COMMAND TITLE: Copy optical to database */
|
||
|
|
/* */
|
||
|
|
/* DESCRIPTION: Copy optical file to database file */
|
||
|
|
/* */
|
||
|
|
/********************************************************************/
|
||
|
|
CPYOPTDB: CMD PROMPT('Copy Optical to DB ')
|
||
|
|
|
||
|
|
PARM KWD(SRCFILE) TYPE(*CHAR) LEN(300) +
|
||
|
|
MIN(1) EXPR(*YES) +
|
||
|
|
PROMPT('Source file')
|
||
|
|
|
||
|
|
PARM KWD(TOFILE) TYPE(QUAL1) MIN(1) +
|
||
|
|
PROMPT('To file')
|
||
|
|
|
||
|
|
PARM KWD(TOMBR) TYPE(*NAME) LEN(10) +
|
||
|
|
SPCVAL((*FIRST)) EXPR(*YES) MIN(1) +
|
||
|
|
PROMPT('To member')
|
||
|
|
|
||
|
|
QUAL1: QUAL TYPE(*NAME) LEN(10)
|
||
|
|
|
||
|
|
QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) +
|
||
|
|
SPCVAL((*LIBL) (*CURLIB)) +
|
||
|
|
PROMPT('Library')</samp></pre>
|
||
|
|
</div>
|
||
|
|
<div class="example"><h4 class="sectiontitle">Copy optical to database: CL program source</h4><div class="note"><span class="notetitle">Note:</span> By
|
||
|
|
using the following code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
|
||
|
|
This
|
||
|
|
CL sample can be used to copy a file from an optical volume to a member of
|
||
|
|
an existing file on a database.<pre><samp class="codeph">/**********************************************************************/
|
||
|
|
/* */
|
||
|
|
/* PROGRAM: CPYOPTDB (Copy Optical to Database) */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* DESCRIPTION: */
|
||
|
|
/* This is the CL program for sample CL command CPYOPTDB. This */
|
||
|
|
/* program can be used to copy a file which is on optical */
|
||
|
|
/* storage to a member of an existing file. */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* DEPENDENCIES: */
|
||
|
|
/* - The sample command and program CPYSTRF exist. */
|
||
|
|
/* - There is an existing folder named OPTICAL.FLR */
|
||
|
|
/* This folder is used for temporary storage when copying */
|
||
|
|
/* from optical to database. It is assumed that this folder is */
|
||
|
|
/* empty and that the user will delete anything which gets */
|
||
|
|
/* copied into it. */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* INPUT PARAMETERS: */
|
||
|
|
/* - Complete source path */
|
||
|
|
/* Example: /filesystem/volume/directory1/directoryx/file */
|
||
|
|
/* /QOPT/VOLN01/DIRA/DIRB/FILE01 */
|
||
|
|
/* - To file */
|
||
|
|
/* Assumptions: */
|
||
|
|
/* - Target library already exists. */
|
||
|
|
/* - Target file already exists and has the same attributes */
|
||
|
|
/* as that which contained the original file. */
|
||
|
|
/* - To member */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* LOGIC: */
|
||
|
|
/* - Build target file */
|
||
|
|
/* - Copy file from OPT to Document Library Services (DLS) */
|
||
|
|
/* - Separate file and library */
|
||
|
|
/* - Copy from folder to database file */
|
||
|
|
/* */
|
||
|
|
/* */
|
||
|
|
/* EXAMPLE: */
|
||
|
|
/* The example will copy file invoices which is in directory */
|
||
|
|
/* DEC on volume YEAR1992. INVOICES was originally a spooled file */
|
||
|
|
/* which had a record length of 133. It will be placed in file */
|
||
|
|
/* LISTINGS which is in library QUSRSYS as member INVOCDEC92. */
|
||
|
|
/* */
|
||
|
|
/* CPYDBOPT TGTFILE('/QOPT/YEAR1992/DEC/INVOICES') */
|
||
|
|
/* TOFILE(QUSRSYS/LISTINGS) */
|
||
|
|
/* TOMBR(INVOCDEC92) */
|
||
|
|
/* */
|
||
|
|
/**********************************************************************/
|
||
|
|
PGM PARM(&SRCFILE &TOFILE &TOMBR);
|
||
|
|
|
||
|
|
/*****************************************************************/
|
||
|
|
/* Input parameters */
|
||
|
|
/*****************************************************************/
|
||
|
|
DCL VAR(&SRCFILE); TYPE(*CHAR) LEN(300)
|
||
|
|
DCL VAR(&TOFILE); TYPE(*CHAR) LEN(20)
|
||
|
|
DCL VAR(&TOMBR); TYPE(*CHAR) LEN(10)
|
||
|
|
|
||
|
|
/*****************************************************************/
|
||
|
|
/* Program variables */
|
||
|
|
/*****************************************************************/
|
||
|
|
DCL VAR(&FILE); TYPE(*CHAR) LEN(10)
|
||
|
|
DCL VAR(&LIB); TYPE(*CHAR) LEN(10)
|
||
|
|
DCL VAR(&TGTFILE); TYPE(*CHAR) LEN(28) +
|
||
|
|
VALUE('/QDLS/OPTICAL.FLR/xxxxxxxxxx')
|
||
|
|
|
||
|
|
/*****************************************************************/
|
||
|
|
/* Monitor for all messages signalled */
|
||
|
|
/*****************************************************************/
|
||
|
|
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(DONE))
|
||
|
|
MONMSG MSGID(IWS0000) EXEC(GOTO CMDLBL(DONE))
|
||
|
|
MONMSG MSGID(OPT0000) EXEC(GOTO CMDLBL(DONE))
|
||
|
|
|
||
|
|
/*****************************************************************/
|
||
|
|
/* Build the target file name and copy the stream file from */
|
||
|
|
/* optical to DLS */
|
||
|
|
/*****************************************************************/
|
||
|
|
CHGVAR VAR(%SST(&TGTFILE 19 10)) VALUE(&TOMBR);
|
||
|
|
|
||
|
|
CPYSTRF SRCFILE(&SRCFILE); +
|
||
|
|
TGTFILE(&TGTFILE);
|
||
|
|
|
||
|
|
/*****************************************************************/
|
||
|
|
/* Separate the file and library names. Copy the folder to DB. */
|
||
|
|
/*****************************************************************/
|
||
|
|
CHGVAR VAR(&FILE); VALUE(%SST(&TOFILE 1 10))
|
||
|
|
CHGVAR VAR(&LIB); VALUE(%SST(&TOFILE 11 10))
|
||
|
|
|
||
|
|
CPYFRMPCD FROMFLR(OPTICAL.FLR) +
|
||
|
|
TOFILE(&LIB/&FILE); +
|
||
|
|
FROMDOC(&TOMBR); +
|
||
|
|
TOMBR(&TOMBR); +
|
||
|
|
TRNTBL(*NONE)
|
||
|
|
|
||
|
|
SNDPGMMSG MSG('CPYOPTDB completed successfully')
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
DONE:
|
||
|
|
SNDPGMMSG MSGID(OPT0125) MSGF(QSYS/QCPFMSG) +
|
||
|
|
MSGDTA(CPYOPTDB) MSGTYPE(*ESCAPE)
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
ENDPGM</samp></pre>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div>
|
||
|
|
<div class="familylinks">
|
||
|
|
<div class="parentlink"><strong>Parent topic:</strong> <a href="tipsandtechniques.htm" title="The following techniques are often helpful in designing custom optical programs for your business.">Tips: Optical programming</a></div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</body>
|
||
|
|
</html>
|