When APUNLOAD encounters pseudo JCL in its input stream it does the following transformations:
From: To:
¢ $$ * $$
¢/ //
¢¢ //
¢F /*
¢J /&
¢S $S
¢. /.
An example of how to use APUNLOAD's pseudo JCL to produce an output punch queue file which is "turned around" as an (cont.)
input reader queue file to immediately load the unloaded application is provided in this book under the name APCOPY. (cont.)
Refer to the example jobstreams in the APLOAD section which follows.
##
Unloading Dictionary Data
Sometimes it might be necessary to move dictionary data from one system to another without moving any particular (cont.)
application. This might involve moving lookup tables, error messages, library members, default algorithms, data (cont.)
definitions, or domains. All of these can be moved using APUNLOAD control cards either with or without also moving an (cont.)
application. If it is not desired that any particular application be moved along with such dictionary data, a (cont.)
specification of "NULL" in Control Card 1 (columns 10 - 13) will inform APUNLOAD that no application is to be moved (cont.)
along with the other data.
It should be noted that some of these types of data (library members, customization, default code, etc.) can be moved (cont.)
using the MAGECLBR utility also. The APUNLOAD/APLOAD process is somewhat more complete and thorough than MAGECLBR is in (cont.)
that they will move the library members' owner identification and password control along with the member, whereas (cont.)
MAGECLBR will not.
##
APUNLOAD Control Card Formats
Columns
Description
Card 1 Format:
1 - 9
Constant 'APLOAD '.
10 - 13
Mask # (SHD #) -or- MBP # -or- NULL.
14 - 18
Blank or 'NOREP'.
19
Blank.
20-80
Up to 12 Data Class names separated by commas ( , ).
Card 2 Format:
1 - 9
'APUNLOAD '.
10 - 13
MSK # (SHD #) -or- MBP #.
14
Blank.
15 - 18
Blank or 'SKIP'.
19
Blank.
20 - 80
Up to 12 Data Class names of Dictionary files separated by
commas ( , ). Valid entries: MSK, KYF, FCD, REF, DOC, DCL, ELT, ALG, SCF, and MMP, in any order.
Card 3 Format:
1 - 9
'APUNLOAD '.
10 - 13
'ERR'.
14
Blank.
15 - 17
Starting ERR #.
18
Blank or slash ( / ).
19 - 21
Ending ERR #.
Card 4 Format:
1 - 9
'APUNLOAD '.
10 - 13
'TBL'.
14
Blank.
15 - 17
Starting TBL #.
18
Blank or slash ( / ).
19-21
Ending TBL #.
Card 5 Format:
1 - 9
'APUNLOAD '.
10 - 12
'LIB'.
13 - 14
Blank.
15 - 22
Member Name.
23
Blank or slash ( / ).
24 - 31
Modifier.
Card 6 Format:
1 - 9
'APUNLOAD '.
10 - 12
'DEF'.
13 - 14
Blank.
15 - 22
Parm Name.
23
Blank or slash ( / ).
24 - 31
'DEFAULT'.
Card 7 Format:
1 - 9
'APUNLOAD '.
10 - 12
'DCL'.
13 - 14
Blank.
15 - 17
Data Class name
Card 8 Format:
1 - 9
'APUNLOAD '.
10 - 12
'DOM'.
13 - 14
Blank.
15 - 20
Beginning Domain number
21
Dash (-)
22 - 27
Ending Domain number
Card 9 Format:
1 - 9
'RENAME '.
10 - 13
Old application number.
14
Blank, dash, or slash.
15 - 18
New application number
APUNLOAD Jobstream
VSE
**
* $$ JOB JNM=APUNLOAD,CLASS=F
*** $$ LST CLASS=V
* $$ PUN CLASS=P
// JOB APUNLOAD UNLOAD A MAGEC APPLICATION
// EXEC PROC=MAGECLIB -pvt. libs. and
// ASSGN SYS006,SYSIPT input control cards
// ASSGN SYS005,........ unloaded data here
// ASSGN SYS007,SYSLST error report
// EXEC APUNLOAD,SIZE=(AUTO,20K)
RENAME mmm /nnn
APLOAD mmm mmm=Mask Number
APUNLOAD mmm SKIP MSK,KYF,FCD,REF,DOC,DCL,ELT,ALG,SCF,MMP
APUNLOAD ERR bbb/eee bbb=beg. ERR# - eee=end.ERR#
APUNLOAD TBL bbb/eee bbb=beg. TBL# - eee=end. TBL#
APUNLOAD LIB mmmmmmmm/xxxxxxxx Member Name/Modifier
APUNLOAD DEF pppppppp/DEFAULT Parm Name/'DEFAULT'
APUNLOAD DCL xxx Data Class ID
APUNLOAD DOM bbbbbb-eeeeee Beg. Domain# - End. Domain#
/*
/&
* $$ EOJ
z/OS
**
//APUNLOAD JOB (ACCT) UNLOAD A MAGEC APPLICATION
**//STEP1 EXEC PGM=APUNLOAD
//STEPLIB DD DSN=MAGEC.LOADLIB,DISP=SHR
* * * * * * DD's for dictionary files
//SYS005 DD DSN=.... unloaded data will go here
//SYS007 DD SYSout=* error report
//SYS006 DD * input control cards
RENAME mmm /nnn
APLOAD mmm mmm=Mask Number
APUNLOAD mmm SKIP MSK,KYF,FCD,REF,DOC,DCL,ELT,ALG,SCF,MMP
APUNLOAD ERR bbb/eee bbb=beg. ERR# - eee=end. ERR#
APUNLOAD TBL bbb/eee bbb=beg.TBL#- eee=end. TBL#
APUNLOAD LIB mmmmmmmm/xxxxxxxx Member Name/Modifier
APUNLOAD DEF pppppppp/DEFAULT Parm Name/'DEFAULT'
APUNLOAD DCL xxx Data Class ID
APUNLOAD DOM bbbbbb-eeeeee Beg. Dom# -End.Dom#
//
PC
**
Edit, as necessary, the control cards found in the file named:
\MAGxx\APUNDLEX.RDR
At the prompt, enter:
APUNLDEX
The output goes to a file named:
\MAGxx\APUNLOAD.PUN
**
NOTE:
**
Certain entities from the MAGEC Repository which pertain to data definitions are considered to be related and treated as a set when they are processed by APUNLOAD.
If you do: APUNLOAD DCL, the DCL will be unloaded along with its subordinate KYF's (Key File definitions), ELT's (cont.)
(Element definitions), and each Element's subordinate Business Rules, DIT's (Data Item definitions), and Cobol (cont.)
copybook.
next: util14.md.txt