If you do: SKIP DIT, APUNLOAD will assume that you intended to SKIP ELT, as well.<br />If you do: SKIP ELT, APUNLOAD will also skip pulling the DIT's, Business Rules, and Cobol copybook for each ELT skipped.<br />Entity Relationships:<br />*<br />Figure 01 -- Entity Relationships<br /># <br />APLOAD<br />## <br />Load an Application<br />The APLOAD jobstream is used to load a complete MAGEC application, or multiple applications, or other dictionary data (cont.)<br />unloaded via APUNLOAD to the system. The input is an unloaded application's Dictionary data from the APUNLOAD (cont.)<br />jobstream. The input data is in 80-column text file format with numerous cross-checks built in to detect missing or out (cont.)<br />of order cards. The first data card must be the APLOAD control card described below if an application's definition is (cont.)<br />being loaded; if only dictionary data definitions are being loaded without any application definition, use the 'NULL' (cont.)<br />value in the APLOAD control card (columns 10-13). In either case, the APLOAD control card cannot be omitted. If the (cont.)<br />application being loaded is to be renamed, then the RENAME card must immediately precede the APLOAD control card. (cont.)<br />APLOAD will check that the data being loaded is for the proper application by comparing it against the MSK # on the (cont.)<br />APLOAD control card.<br />APLOAD will re-construct the Dictionary file records from the input file data and will add (or update) them on the (cont.)<br />target system's files. If a record is already on file having the same key value as the one(s) being loaded then APLOAD (cont.)<br />will update it, if none is already on file APLOAD will add it.<br />A control card option on the APLOAD control card may be specified to tell APLOAD that it is not to update any matching (cont.)<br />records on the target system, just add the new ones. This option is handy in the case of, let us say, the ERR file (cont.)<br />where you might have unloaded a range of error numbers because the ones you want are scattered throughout that range. (cont.)<br />You can tell APLOAD to add the new ERR records but to just bypass those which are already on the file by using the (cont.)<br />'NOREP' (no-replace) option. 'NOREP' tells APLOAD to not replace records currently on file, but to add those that are (cont.)<br />not already present.<br />The APLOAD jobstream has one step:<br />APLOAD<br />Load application to Dictionary.<br />You should also read the discussions about the APARC and APUNARC jobstreams which enable you to easily archive multiple (cont.)<br />versions of an application and to restore from any selected archived version on demand.<br />## <br />APLOAD Control Cards<br />There are two control cards accepted into the APLOAD program. The "APLOAD" card usually is passed from APUNLOAD in (cont.)<br />front of the unloaded data for each application (multiple applications can be loaded in a single run of APLOAD). If no (cont.)<br />application was unloaded (i.e. only error messages or data definitions were unloaded), there will be 'NULL' in columns (cont.)<br />10-13.<br />**<br />Columns<br />Description<br />1 - 9<br />Constant 'APLOAD '.<br />10 - 13<br />Mask (SHD) number -or- MBP number -or- 'NULL'<br />14 - 18<br />Blank or 'NOREP'.<br />19<br />Blank.<br />20 - 80<br />Up to 12 Data Class names of Dictionary files separated by commas ( , ).<br />If you code 'NOREP' in column 14 of the APLOAD control card then you may list up to 12 names of Data Classes (files) (cont.)<br />which are not to have their records updated if a record being loaded is a match. NOREP means NO REPLACE, ADD (cont.)<br />ONLY.<br />The list of valid data class names which may be on the APLOAD control card after the NOREP parameter is:<br />ALG&nbsp; (LIB will allow replacing Custom Algorithms, but not included Lib. members)<br />DCL<br />DIT<br />DOC<br />ELT<br />ERR<br />FCD<br />KYF<br />MMP<br />MSK<br />PRM<br />PRO<br />REF<br />RUL<br />SCF<br />SHD<br />TBL<br />## <br />RENAME Control Card<br />Another control card may be input to the APLOAD program. It is the RENAME card. As its name implies, it alllows you to (cont.)<br />rename an application. If used, it must immediately precede the APLOAD card. Its format is:<br />Columns<br />Description<br />1 - 9<br />Constant 'RENAME '.<br />10 - 13<br />Old Mask (SHD) NUMBER -or- MBP number.<br />14<br />Blank, dash, or slash separator.<br />15 - 18<br />New Mask (SHD) NUMBER -or- MBP number<br />This enables you to unload an application, say number 801, then to load it to another system under a different name, (cont.)<br />say 901. You could also reload it to the original source system under a different name to create a new test copy of (cont.)<br />your application.<br />APLOAD Jobstream<br />&nbsp;&nbsp;&nbsp;&nbsp;<br />VSE&nbsp;&nbsp;&nbsp;&nbsp;<br />**<br />*&nbsp;$$&nbsp;JOB&nbsp;JNM=APLOAD,CLASS=F<br />***&nbsp;$$&nbsp;LST&nbsp;CLASS=V<br />//&nbsp;JOB&nbsp; APLOAD&nbsp; LOAD&nbsp;A&nbsp;MAGEC&nbsp;APPLICATION<br />//&nbsp;EXEC&nbsp;PROC=MAGECLIB&nbsp; -pvt.&nbsp;libs.&nbsp;&&nbsp;DLBL's&nbsp;for&nbsp;dictionary<br />//&nbsp;ASSGN&nbsp;SYS006,........&nbsp; unloaded&nbsp;appl.&nbsp;from&nbsp;APUNLOAD<br />//&nbsp;ASSGN&nbsp;SYS007,SYSLST&nbsp; audit&nbsp;trail&nbsp;report<br />//&nbsp;EXEC&nbsp;APLOAD,SIZE=(AUTO,20K)<br />/*<br />/&<br />*&nbsp;$$&nbsp;EOJ<br />&nbsp;&nbsp;&nbsp;&nbsp;<br />z/OS&nbsp;&nbsp;&nbsp;&nbsp;<br />**<br />//APLOAD&nbsp;JOB&nbsp;(ACCT)&nbsp; LOAD&nbsp;A&nbsp;MAGEC&nbsp;APPLICATION<br />**//STEP1&nbsp; EXEC&nbsp;PGM=APLOAD<br />//STEPLIB&nbsp;DD&nbsp;DSN=MAGEC.LOADLIB,DISP=SHR<br />* * * * * * *DD's for dictionary files<br />//SYS006&nbsp; DD&nbsp;DSN=....&nbsp; unloaded&nbsp;appl.&nbsp;from&nbsp;APUNLOAD<br />//SYS007&nbsp; DD&nbsp;SYSOUT=*&nbsp; audit&nbsp;trail&nbsp;report<br />//<br />&nbsp;&nbsp;&nbsp;&nbsp;<br />PC&nbsp;&nbsp;&nbsp;&nbsp;<br />**<br />Edit, as necessary, the control cards found in the file named:<br />\MAGMF\APUNLOAD.PUN<br />&nbsp;<br />At the prompt, enter:<br />APLOADEX<br />&nbsp;<br />&nbsp;<br />&nbsp;<br />&nbsp;<br />APCOPY Jobstream<br />**<br />&nbsp;&nbsp;&nbsp;&nbsp;<br />VSE&nbsp;&nbsp;&nbsp;&nbsp;<br />**<br />*&nbsp;$$&nbsp;JOB&nbsp;JNM=APCOPY,CLASS=S