Using the IMS Option
With the ChangeMan ZMF IMS Option, IMS programmers are able to update, stage and install packages in the usual way, with IMS-related options only appearing where appropriate.
For the most part, the IMS Option provides very little that is different or new to the experienced ChangeMan ZMF user. These special considerations will be explained in this chapter.
Creating a Package with IMS Components
Creating a package with IMS components is identical to creating any package with ChangeMan ZMF.
In general, the only effect IMS has during package creation is that the IMS control region information is copied to the package level. Control region data sets can thus be updated by end users at the package level (unless this is disallowed by your ChangeMan ZMF administrator).
The next section discusses the issues in updating a package.
Package Update
Under the Package Update option, Option 2 of the Build Options panel (CMNBUILD), Option I of the Update Package Information panel has been added to allow you to obtain the Update IMS Package Update Options panel (CMNIMUPD) to view or update IMS information at the package level. The ability to make IMS updates is controlled by exit CMNEX041.
To display the Update IMS Package Update Options panel (CMNIMUPD), take the following steps:
-
From the Primary Option Menu, select 1 (Build). The Build Options panel (CMNBUILD) displays.
-
From the Build Options panel (CMNBUILD), select 2 (Update). The Update Package Information panel (CMNPGNLO) displays.
CMNPGNL0 UPDATE: Package Information Option ===>________________________________________________ Package . . . . IMSA000083 1 Control Package control information 2 General General description 3 Instruction Installation instructions 4 Dependencies Job Scheduling dependencies 5 Affected Apps Affected applications 6 Participating Participating packages 7 Install Dates Install date and site information 8 Close Package Close complex/super package 9 Open Package Open complex/super package D Db2 Db2 package information E User Package user information I IMS IMS package information R Release Package release information -
From the Update Package Information panel (CMNPGNLO), select I (IMS Information). The Update IMS Package Update Options panel (CMNIMUPD) appears.
CMNIMUPD UPDATE: IMS Package Update Options
Option ===>__________________________________________
Package: IMSA000083 Status: FRZ Install Date: 20180707
1 IMS Regions Add/delete IMS Control Regions
2 ACB Statements Add/delete/update ACB statements
3 DBD Overrides Add/delete/update DBD override statements
4 PSB Overrides Add/delete/update PSB override statements
If the change package information that needs updating is in a FRZ (frozen) status, the GENERAL information category must be selectively unfrozen to allow this information to be updated. This category must be selectively refrozen when finished.
Note
The updating of any of these options may be restricted through the use of ChangeMan ZMF exits 1 or 41. See the ChangeMan ZMF Customization Guide for information about exits
IMS Control Regions
Option 1 displays IMS control region information on the Update: IMS System Definitions panel (CMNIMSYS).
CMNIMSYS UPDATE: IMS System Definitions Row 1 to 1 of 1
Command ===>_______________________________________ Scroll ===> CSR
Package: IMSA000023 Status: DEV Install Date: 20180909
IMS Site Logical Active Devchar MFSgen PSBgen DBDgen ACB
Id Name Site Name y/n Suffix y/n y/n y/n y/n
IMSA SERT6P1 S6P1UT Y A Y Y Y Y
******************************* Bottom of data *******************************
From this menu, you can add or delete IMS systems available for your package. Depending on the authority set by the Administrator, you may be able to delete IMS IDs. You may also be able to add IMS IDs, but they must be defined by an Administrator before you will see them under Package Update.
This authority can be controlled through ChangeMan ZMF exits CMNEX001 and CMNEX041. See the chapter titled User Exits in the ChangeMan ZMF Customization Guide.
You will generally just select or deselect an entire line here. This is because you will just want to update the definitions for one IMS ID at a time.
See Chapter 2 Global Control Region Setup for details.
ACB Control Statements
Option 2 gives you information about your ACB control statements. ACB control statements are generated during the stage process and executed during the install process.
CMNIMACB UPDATE: ACB Control Statements Row 1 to 21 of 21
Command ===>_______________________________________ Scroll ===> CSR
Package: IMSA000023 Status: DEV Install Date: 20180909
IMS Logical ACB Control PSB/DBD PSB/DBD Library
Id Site Site Type Statement Source Target Type
_____ ____ ____ _______ ____ _________ _______ _______ _______
_____ ____ ____ _______ ____ _________ _______ _______ _______
_____ ____ ____ _______ ____ _________ _______ _______ _______
_____ ____ ____ _______ ____ _________ _______ _______ _______
_____ ____ ____ _______ ____ _________ _______ _______ _______
_____ ____ ____ _______ ____ _________ _______ _______ _______
This screen is populated only with ACB control statements if there are PSBs or DBDs in your package. ChangeMan ZMF determines if ACB GENs may be needed, and fills in this screen accordingly.
With this option, you can add or delete IMS ACB control statements for this package. The fields in this option are discussed in the next sections.
All online PSB GENs (GENs of PSBs that are allocated to an IMS control region) require an ACB generation.
If you change something in the PSB or DBD specifications of your package (a PSB or a DBD override), ChangeMan ZMF will reflect that change here, in the form of “suggested” ACB control information. You can modify that information on this screen, or if you know you don’t need an ACB generation, you can delete it.
The fields in the Update ACB Control Statements panel (CMNIMACB) are described in the following table.
| Field | Description |
|---|---|
| Line Command | Type one of these line commands: |
| I Insert | |
| R Repeat | |
| D Delete | |
| * Select | |
| IMS Id | A four-character ID that is assigned by the administrator for the control region. |
| Site | Type the remote site as defined in ChangeMan ZMF where the IMS subsystem is running. A blank entry to this field defaults to the local ChangeMan ZMF subsystem. You may enter a mask of ‘*’ to display and selection list of the remote sites defined in this ChangeMan ZMF subsystem. |
| Logical Site | Type the logical site as defined in ChangeMan ZMF where the IMS subsystem is running. A blank entry to this field defaults to a logical site of baseline. Baseline in this case means installation or production. A logical site is either Baseline or a promotion nickname as defined in ChangeMan ZMF. Promotion nicknames can either be local or remote promotion sites. If the field is blank, it defaults to Baseline. If it is a baseline library, then it is either Production or Baseline(0). |
| ACB Type | Type the IMS type of PSB or DBD for the ACB generation. Only a one character type of P or D is required. |
| Control Statement | Type the type of ACB control. BUILD or DELETE are the only valid types of control statements. Only a one character type of ‘B’ or ‘D’ is required. |
| PSB/DBD Source | Type the source name of the PSB or DBD you wish to have an ACB generation performed on. The source must reside in the package or be reassembled from baseline. |
| PSB/DBD Target | Type the load name of the PSB or DBD you wish to have an ACB generation performed on. |
| Library Type | Type the library type that the PSB or DBD source was staged as. This library type must be an IMS PSB or DBD source sub-type. |
...
DBD Overrides
For Packages, work just like DBD Overrides at the Global and Application levels. Option 3 displays the Update DBD Override Control Statements panel (CMNIMDBD), which allows you to display the DBD override selections. DBD override statements are generated during the stage process and executed during the install process.
CMNIMDBD UPDATE: DBD Override Control Statements Row 1 to 12 of 21
Command ===>_______________________________________________ Scroll ===> CSR
Package: IMSA000023 Status: DEV Install Date: 20180909
IMS Logical Control DBD Library
Id Site Site Statement Name Type
___ ___ ______ ____ ________ ___ _______
Org _____________________________________________________
New _____________________________________________________
With this option, you can add or delete IMS DBD control statements for this package. For each override, type the original (ORG) or the revised (NEW) DBD control statement.
Note
It is of no consequence to do an override if you are not GENing the DBD. Make sure you are going to be re-GENing before specifying the overrides. Check the IMS control region definition (panel CMNIMSYS).
PSB Overrides
PSB Overrides at the Package level work the same as PSB overrides at the Global and Application levels. Option 4 displays the Update PSB Override Control Statement panel (CMNIMPSB) that allows you to display the PSB override selections. PSB override statements are generated during the stage process and processed during the promotion and install processes.
In the following example during the package installation process the original PSBGEN statement with LANG=ASSEM is replaced with LANG=COBOL.
CMNIMPSB UPDATE: DBD Override Control Statements Row 1 to 12 of 21
Command ===>_______________________________________________ Scroll ===> CSR
Package: IMSA000023 Status: DEV Install Date: 20180909
IMS Logical Control DBD Library
Id Site Site Statement Name Type
___ ___ ______ ____ ________ ___ _______
Org _____________________________________________________
New _____________________________________________________
With this option, you can add or delete IMS PSB control statements for this package.
For each override, enter the original (ORG) or the revised (NEW) PSB control statement.
Note
It is of no consequence to do an override if you are not GENing the PSB. Make sure you are going to be re-GENing before specifying the overrides. Check the IMS Control Region definitions.
Package Staging Considerations
DBDs are parsed for appropriate information to determine if BUILD statements are required for ACBs.
PSBs are parsed to determine if BUILD statements for ACBs are required. If the ChangeMan ZMF Administrator has specified to always generate BUILD statements, then no parsing is required.
Staging a PSB (IMS/DLI Application)
Select the PSB to stage:
CMNSTG02 Stage from Development
Command ===>________________________________
Package: IMSA000023 Status: DEV Install date: 0180909
Work request: 1907D92 Department: IDD
ISPF Library:
Project . . . . USER015
Group . . . . . PSB
Type . . . . . SOURCE
Member . . . . ______ (Blank/pattern for list; * for all members)
Other partitioned, sequential or zFS dataset:
DSN . . . . . . CMNTP.SERT6.BASE.IMSQ.PSB +
Org . . . . . . ___ (PDS, Seq, PAN, LIB, Oth, zFS)
Library type . . . . . PSB (Blank for list)
Stage name . . . . . . __________________________________________________+
Stage mode . . . . . . 1 (1-Online, 2-Batch)
Enter "/" to select option
/ Confirm request __Expand zFS subdirectories
/ Lock component __Display component user options
__Extract Stored Procedure from Db2 catalog
Select the PSB to STAGE, in this case we chose IM2Q101:
CMNSTG03 Stage from Development Row 1 to 1 of 1
Command ===> ______________________________ Scroll ===> CSR
From dataset name
CMNTP.SERT6.BASE.IMSQ.PSB
Name Function vv.mm Created Changed Size Init User
IM2QPSB 01.01 2018/05/01 2018/06/03 06:45 00004 00002 USER015
S IM2Q101 01.01 2018/05/01 2018/05/03 06:45 00004 00002 USER015
******************************* Bottom of data *******************************
You’ll need to fill in the PROCEDURE and LANGUAGE names:
CMNSTG04 Stage: Build
Command ===>__________________________________
Package: IMSA000023 Status: DEV Install date: 20180909
Staged name . . . . IM2Q101 +
Library type . . . . PSB - IMS PSB Source
Dataset name . . . . CMNTP.SERT6.BASE.IMSQ.PSB +
Language . . . . . . . . . ASM (Blank for list)
Compile procedure . . . . CMNPSBGN (Blank for list; ? for designated proc.)
Compile parms . . . . . . _____________________________
Pgm binder parms . . . . ._____________________________
Enter "/" to select option
Db2 processing
Other Db2 options
Other options User variables
Suppress messages
Job statement information:
//USER015A JOB (ACCOUNT),'IMSA',
// CLASS=A,
// NOTIFY=USER015,
// MSGCLASS=X
CMNSTG07 Language Selection List Row 1 to 9 of 9
Command ===> _____________________________ Scroll ===> CSR
Language
S ASM
___ C
...
Then also if you omit the compile procedure, select CMNPSBGN:
CMNSTG06 Compile Procedure Selection List Row 1 to 7 of 7
Command ===>______________________________ Scroll ===> CSR
Procedure Language Description
__CMNASM ASM Stage assembler source
__CMNASMOB ASM Stage assembler source to object
__CMNASM2L ASM Stage assembler source w/ 2 link edit
__CMNDBDGN ASM IMS DBD Gen
__CMNMAPGN ASM CICS BMS MAP Gen
__CMNMFSGN ASM IMS MFS Gen
s CMNPSBGN ASM IMS PSB Gen
*******************************Bottom of data*******************************
Here’s the PSB SOURCE:
ISRBROBA NTP.SERT6.BASE.IMSQ.PSB(IM2Q101) - 01.01 Line 00000000 Col 001 080
Command ===>______________________________________ Scroll ===> CSR
******************************** Top of Data *********************************
PCB TYPE=DB,DBDNAME=CUSEDBD,PROCOPT=L,KEYLEN=4
SENSEG NAME=CUSESEGM,PARENT=0
PSBGEN PSBNAME=IM2Q101,LANG=ASSEM,CMPAT=YES
END
******************************* Bottom of Data *******************************
Cycle through the remaining screens, and the job will be submitted. This is the JESMSGLG showing the PSBGEN job steps executed.
...
********************************* TOP OF DATA ***************************************************************************
J E S 2 J O B L O G -- S Y S T E M Q 0 0 1 -- N O D E M P 3 J E S 2
00.47.23 J0003331 ---- TUESDAY, 26 JUN 2018 ----
00.47.23 J0003331 IRR010I USERID SERT IS ASSIGNED TO THIS JOB.
00.47.24 J0003331 ICH70001I SERT LAST ACCESS AT 21:57:53 ON MONDAY, JUNE 25, 2018
00.47.24 J0003331 $HASP373 USER015A STARTED - INIT 1 - CLASS A - SYS Q001
00.47.24 J0003331 - --TIMINGS (MINS.)-- -----PAGING COUNTS----
00.47.24 J0003331 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
00.47.24 J0003331 -SERCOPY 00 229 51 .00 .00 .0 999 BATCH 0 0 0 0
00.47.25 J0003331 IEC130I SYSLIB DD STATEMENT MISSING
00.47.25 J0003331 -WRITE 04 741 188 .00 .00 .0 891 BATCH 2 0 0 0
00.47.25 J0003331 -ASM 00 182 45 .00 .00 .0 567 BATCH 0 0 0 0
00.47.25 J0003331 -SSIDN 00 81 17 .00 .00 .0 265 BATCH 0 0 0 0
00.47.25 J0003331 -ALOCIN 00 35 6 .00 .00 .0 115 BATCH 0 0 0 0
00.47.26 J0003331 -LNK 00 105 24 .00 .00 .0 365 BATCH 0 0 0 0
00.47.26 J0003331 -BT90PSL 00 219 44 .00 .00 .0 709 BATCH 0 0 0 0
00.47.27 J0003331 -VFYILOD 00 716 183 .00 .00 .0 743 BATCH 0 0 0 0
00.47.27 J0003331 -DLTILOD FLUSH 0 0 .00 .00 .0 0 BATCH 0 0 0 0
00.47.27 J0003331 -CPYPSL 00 237 50 .00 .00 .0 979 BATCH 0 0 0 0
00.47.28 J0003331 -PSBDBD 00 714 183 .00 .00 .0 770 BATCH 0 0 0 0
00.47.28 J0003331 -SUCCESS 00 815 194 .00 .00 .0 831 BATCH 0 0 0 0
00.47.28 J0003331 -CHKCOND 00 14 3 .00 .00 .0 32 BATCH 0 0 0 0
00.47.28 J0003331 -FAILURE FLUSH 0 0 .00 .00 .0 0 BATCH 0 0 0 0
00.47.29 J0003331 -PRINT 00 373 43 .00 .00 .0 1092 BATCH 0 0 0 0
00.47.29 J0003331 -COMPLST 00 147 33 .00 .00 .0 424 BATCH 0 0 0 0
00.47.30 J0003331 -ILODLST 00 714 183 .00 .00 .0 686 BATCH 0 0 0 0
00.47.30 J0003331 -USER015A ENDED. NAME-IMSA TOTAL TCB CPU TIME= .01 TOTAL ELAPSED TIME= .1
00.47.30 J0003331 $HASP395 USER015A ENDED - RC=0004
...
------ JES2 JOB STATISTICS ------
26 JUN 2018 JOB EXECUTION DATE
377 CARDS READ
1,620 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
122 SYSOUT SPOOL KBYTES
0.11 MINUTES EXECUTION TIME
******************************** BOTTOM OF DATA ****************************************************
...
Staging a DBD (DLI Database)
Select the DBD for staging:
CMNSTG02 Stage from Development
Command ===>___________________________________
Package: IMSA000023 Status: DEV Install date: 20180909
Work request: 1907D92 Department: IDD
ISPF Library:
Project . . . . USER015
Group . . . . . JCL
Type . . . . . CNTL
Member . . . . (Blank/pattern for list; * for all members)
Other partitioned, sequential or zFS dataset:
DSN . . . . . . CMNTP.SERT6.BASE.IMSQ.DBD +
Org ___. . . . . . (PDS, Seq, PAN, LIB, Oth, zFS)
Library type . . . . . DBD (Blank for list)
Stage name . . . . . . _________________________________________+
Stage mode . . . . . . 1 (1-Online, 2-Batch)
Enter "/" to select option
/ Confirm request __Expand zFS subdirectories
/ Lock component __Display component user options
__Extract Stored Procedure from Db2 catalog
Then select the DBD for staging, in this case we chose CUSEDBD:
CMNSTG03 Stage from Development Row 1 to 1 of 1
Command ===>______________________________________ Scroll ===> CSR
From dataset name
CMNTP.SERT6.BASE.IMSQ.DBD
Name Function vv.mm Created Changed Size Init User
__CUSEDBD 02.00 2018/05/02 2018/06/08 18:46 00006 00006 USER022
******************************* Bottom of data *******************************
Here’s what the Staging Build panel will look like:
CMNSTG04 Stage: Build
Command ===>____________________________________________
Package: IMSA000023 Status: DEV Install date: 20180909
Staged name . . . . CUSEDBD +
Library type . . . . DBD - IMS DBD Source
Dataset name . . . . CMNTP.SERT6.BASE.IMSQ.DBD +
Language . . . . . . . . . ASM (Blank for list)
Compile procedure . . . . CMNDBDGN (Blank for list; ? for designated proc.)
Compile parms . . . . . . _______________________________
Pgm binder parms . . . . ._______________________________
Enter "/" to select option
Db2 processing
Other Db2 options
Other options User variables
Suppress messages
Job statement information:
//USER015A JOB (ACCOUNT),'IMSA',
// CLASS=A,
// NOTIFY=USER015,
// MSGCLASS=X
Here’s the DBD source code:
BROWSE CMNTP.SERT6.BASE.IMSQ.DBD(CUSEDBD) - 02.00 Line 00000000 Col 001 080
Command ===>_________________________________________________ Scroll ===> CSR
******************************** Top of Data **********************************
DBD NAME=CUSEDBD,ACCESS=HDAM,RMNAME=(DFSHDC40,1,500,824)
DATASET DD1=CUSEDD1,DEVICE=3390
SEGM NAME=CUSESEGM,BYTES=200,PARENT=0
FIELD NAME=(CUSESEQ,SEQ,U),BYTES=4,START=1,TYPE=C
FIELD NAME=CUSEDATA,BYTES=196,START=5,TYPE=C
DBDGEN
******************************* Bottom of Data ********************************
Excerpts from the DBDGEN:
...
J E S 2 J O B L O G -- S Y S T E M Q 0 0 1 -- N O D E M P 3 J E S 2
01.10.10 J0003382 ---- TUESDAY, 26 JUN 2018 ----
01.10.10 J0003382 IRR010I USERID SERT IS ASSIGNED TO THIS JOB.
01.10.11 J0003382 ICH70001I SERT LAST ACCESS AT 00:47:24 ON TUESDAY, JUNE 26, 2018
01.10.11 J0003382 $HASP373 USER015A STARTED - INIT 1 - CLASS A - SYS Q001
01.10.11 J0003382 - --TIMINGS (MINS.)-- -----PAGING COUNTS----
01.10.11 J0003382 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
01.10.11 J0003382 -SERCOPY 00 242 55 .00 .00 .0 1076 BATCH 0 0 0 0
01.10.12 J0003382 IEC130I SYSLIB DD STATEMENT MISSING
01.10.12 J0003382 -WRITE 04 749 201 .00 .00 .0 985 BATCH 0 0 0 0
01.10.13 J0003382 -ASM 04 247 59 .00 .00 .0 993 BATCH 0 0 0 0
01.10.13 J0003382 -SSIDN 00 83 18 .00 .00 .0 301 BATCH 0 0 0 0
01.10.13 J0003382 -ALOCIN 00 34 6 .00 .00 .0 121 BATCH 0 0 0 0
01.10.14 J0003382 -LNK 00 102 25 .00 .00 .0 414 BATCH 0 0 0 0
01.10.14 J0003382 -BT90DBL 00 220 45 .00 .00 .0 813 BATCH 0 0 0 0
01.10.15 J0003382 -VFYILOD 00 728 189 .00 .00 .0 827 BATCH 0 0 0 0
01.10.15 J0003382 -DLTILOD FLUSH .0 0 0 .00 .00 0 BATCH 0 0 0 0
01.10.16 J0003382 -CPYDBL 00 240 51 .00 .00 .0 1048 BATCH 0 0 0 0
01.10.16 J0003382 -PSBDBD 00 722 186 .00 .00 .0 824 BATCH 0 0 0 0
01.10.17 J0003382 -SUCCESS 00 817 204 .00 .00 .0 901 BATCH 0 0 0 0
...
01.10.17 J0003382 -CHKCOND 00 14 2 .00 .00 .0 30 BATCH 0 0 0 0
01.10.17 J0003382 -FAILURE FLUSH 0 0 .00 .00 .0 0 BATCH 0 0 0 0
01.10.18 J0003382 -PRINT 00 369 45 .00 .00 .0 1190 BATCH 0 0 0 0
01.10.18 J0003382 -COMPLST 00 141 32 .00 .00 .0 486 BATCH 0 0 0 0
01.10.19 J0003382 -ILODLST 00 721 190 .00 .00 .0 794 BATCH 0 0 0 0
01.10.19 J0003382 -USER015A ENDED. NAME-IMSA TOTAL TCB CPU TIME= .01 TOTAL ELAPSED TIME= .1
01.10.19 J0003382 $HASP395 USER015A ENDED - RC=0004
********************************************************************************
* DDNAME: CPYDBL.SYSPRINT *
********************************************************************************
IEBCOPY MESSAGES AND CONTROL STATEMENTS PAGE 1
IEB1135I IEBCOPY FMID HDZ2230 SERVICE LEVEL UA92265 DATED 20170618 DFSMS 02.03.00 z/OS 02.03.00 HBB77B0 CPU 2965
IEB1035I USER015A CPYDBL 01:10:15 TUE 26 JUN 2018 PARM='LIST=NO,SPCLCMOD'
COPYMOD OUTDD=SYS00003,INDD=((SYSUT1,R)),LIST=NO * Copy
IEB190I MAXIMUM BLOCK SIZE IS 32760, MINIMUM BLOCK SIZE IS 1024
IEB1013I COPYING FROM PDS INDD=SYSUT1 VOL=SRSM80 DSN=SYS18177.T011010.RA000.USER015A.LOAD.H09
IEB1014I TO PDS OUTDD=SYS00003 VOL=C1054D DSN=CMNTP.S6.IMSA.STG6.#000001.DBL
IEB1098I 1 OF 1 MEMBERS COPIED FROM INPUT DATA SET REFERENCED BY SYSUT1
IEB144I THERE ARE 9 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYS00003
IEB149I THERE ARE 4 UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I END OF JOB - 0 WAS HIGHEST SEVERITY CODE
********************************************************************************
* DDNAME: SUCCESS.SYSPRINT *
********************************************************************************
ChangeMan(R) ZMF CMNBATCH - 8.2.0 2018/06/26 01:10:17
Attempting to initiate dialog with ChangeMan ZMF subtask
Session established with ChangeMan ZMF subtask
SYSIN: IMSA000023 90 RTP=ISRC
SYSIN: IMSA000023 90 LIB=DBD
SYSIN: IMSA000023 90 LNG=ASM
SYSIN: IMSA000023 90 SID=USER015
SYSIN: IMSA000023 90 CHT=19F3484300000128
...
SYSIN: IMSA000023 90 CNM=CUSEDBD
SOURCE COMPONENT ACTIVATED. IMSA000023
SOURCE COMPONENT ACTIVATION LOGGED. IMSA000023
SYSIN: IMSA000023 90 CID=
SYSIN: IMSA000023 90 RTP=ILOD
SYSIN: IMSA000023 90 SLT=DBD
SYSIN: IMSA000023 90 SNM=CUSEDBD
SYSIN: IMSA000023 90 SID=USER015
SYSIN: IMSA000023 90 SSI=6E0189EB
SYSIN: IMSA000023 90 PRC=CMNDBDGN
SYSIN: IMSA000023 90 RLK=
SYSIN: IMSA000023 90 LLT=DBL
SYSIN: IMSA000023 90 SUP=NO
SYSIN: IMSA000023 90 LNM=CUSEDBD
Component CUSEDBD is in ACTIVE status and the package master
LOAD record has been updated accordingly. IMSA000023
LOAD COMPONENT ACTIVATED. IMSA000023
LOAD COMPONENT ACTIVATION LOGGED. IMSA000023
HISTORY RECORD has been updated accordingly. IMSA000023
SYSIN: IMSA000023 90 CID=CUSEDBD 6E0189EB IMSA000023 I
SYSIN: IMSA000023 90 CID=
END OF DATA ON SYSIN - TERMINATING
Session terminated with ChangeMan ZMF started task
<SIZE: RECS=1567 BYTES=93049>
******************************** BOTTOM OF DATA **************************
Staging MFS (IMS Message Formats)
Here’s the MFS source:
BROWSE CMNTP.SERT6.BASE.IMSQ.MFS(IM2QFMT) - 01.00 Line 00000000 Col 001 080
Command ===> Scroll ===> PAGE
********************************* Top of Data **********************************
PRINT NOGEN
SQDF1 FMT
DEV TYPE=(3270,2),FEAT=IGNORE,DSCA=X'00A0',SYSMSG=MSGFLD
DIV TYPE=INOUT
DPAGE CURSOR=((15,37))
DFLD 'AUBREY SUSAN SUPPORT SYSTEMS',POS=(03,26,01)
DFLD 'TRANCODE ',POS=(15,27)
TRANCODE DFLD POS=(15,37),LTH=9
DFLD 'STARTNUM ',POS=(16,27)
STARTNUM DFLD POS=(16,37),LTH=9
DFLD 'ENDNUM ',POS=(17,27)
ENDNUM DFLD POS=(17,37),LTH=9
DFLD 'RESULT ',POS=(18,27)
RESULT DFLD POS=(18,37),LTH=9
MSGFLD DFLD POS=(21,02),LTH=79
FMTEND
SQMO1 MSG TYPE=OUTPUT,SOR=(SQDF1,IGNORE),NXT=SQMI1
SEG
MFLD TRANCODE,LTH=9
MFLD STARTNUM,LTH=9
MFLD ENDNUM,LTH=9
MFLD RESULT,LTH=9
MSGEND
SQMI1 MSG TYPE=INPUT,SOR=(SQDF1,IGNORE),NXT=SQMO1
SEG
MFLD TRANCODE,LTH=9
MFLD STARTNUM,LTH=9
MFLD ENDNUM,LTH=9
MSGEND
END
******************************** Bottom of Data ********************************
DIFs and DOFs and MIDs and MODs. The Device Input Format/Device Output Format name is SQDF1 (TYPE=INOUT). The Message Output Descriptor name is SQMO1. The Device Input Format name is SQMI1.To initiate this transaction, issue a /FORMAT SQMO1 from the IMS application terminal.
To stage the MFS control blocks:
CMNSTG02 Stage from Development
Command ===>_________________________________
Package: IMSA000023 Status: DEV Install date: 20180909
Work request: 1907D92 Department: IDD
ISPF Library:
Project . . . . USER015
Group . . . . . JCL
Type . . . . . CNTL
Member . . . . _______ (Blank/pattern for list; * for all members)
Other partitioned, sequential or zFS dataset:
DSN . . . . . . CMNTP.SERT6.BASE.IMSQ.MFS +
Org . . . . . .________ (PDS, Seq, PAN, LIB, Oth, zFS)
Library type . . . . . MFS (Blank for list)
Stage name . . . . . . +
Stage mode . . . . . . 1 (1-Online, 2-Batch)
Enter "/" to select option
/ Confirm request Expand zFS subdirectories
/ Lock component Display component user options
Extract Stored Procedure from Db2 catalog
Select the MFS member to STAGE, in this case we chose IM2QFMT
CMNSTG03 Stage from Development Row 1 to 1 of 1
Command ===>__________________________ Scroll ===> CSR
From dataset name
CMNTP.SERT6.BASE.IMSQ.MFS
Name Function vv.mm Created Changed Size Init User
__IM2QFMT 01.01 2018/05/14 2018/05/14 15:45 00030 00030 USER022
******************************* Bottom of data ********************************
Need to fill in Language and Procedure:
CMNSTG04 Stage: Build
Command ===>___________________________________
Package: IMSA000023 Status: DEV Install date: 20180909
Staged name . . . . IM2QFMT +
Library type . . . . MFS - IMS MFS Source
Dataset name . . . . CMNTP.SERT6.BASE.IMSQ.MFS +
Language . . . . . . . . . ASM (Blank for list)
Compile procedure . . . . CMNMFSGN (Blank for list; ? for designated proc.)
Compile parms . . . . . . _________________________________________
Pgm binder parms . . . . . _________________________________________
Enter "/" to select option
__ Db2 processing
__ Other Db2 options
__ Other options __User variables
__ Suppress messages
Job statement information:
//USER015A JOB (ACCOUNT),'IMSA',
// CLASS=A,
// NOTIFY=USER015,
// MSGCLASS=X
Excerpts from the MFSGEN:
...
********************************* TOP OF DATA *****************************************
J E S 2 J O B L O G -- S Y S T E M Q 0 0 1 -- N O D E M P 3 J E S 2
02.39.50 J0003569 ---- TUESDAY, 26 JUN 2018 ----
02.39.50 J0003569 IRR010I USERID SERT IS ASSIGNED TO THIS JOB.
02.39.51 J0003569 ICH70001I SERT LAST ACCESS AT 02:34:30 ON TUESDAY, JUNE 26, 2018
02.39.51 J0003569 $HASP373 USER015A STARTED - INIT 1 - CLASS A - SYS Q001
02.39.52 J0003569 - --TIMINGS (MINS.)-- ----PAGING COUNTS----
02.39.52 J0003569-STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
02.39.52 J0003569 -SERCOPY 00 230 51 .00 .00 . 0 981 BATCH 0 0 0 0
02.39.52 J0003569 IEC130I SYSLIB DD STATEMENT MISSING
02.39.52 J0003569 -WRITE 04 735 189 .00 .00 .0 878 BATCH 0 0 0 0
02.39.53 J0003569 -MFSS1 04 166 32 .00 .00 .0 514 BATCH 0 0 0 0
02.39.53 J0003569 -MFSS2 00 173 44 .00 .00 .0 439 BATCH 0 0 0 0
02.39.53 J0003569 -BT90MFR 00 113 23 .00 .00 .0 238 BATCH 0 0 0 0
02.39.53 J0003569 -BT90FMT 00 109 22 .00 .00 .0 234 BATCH 0 0 0 0
02.39.54 J0003569 -VFYILOD 00 745 184 .00 .00 .0 788 BATCH 0 0 0 0
02.39.54 J0003569 -DLTILOD FLUSH 0 0 .00 .00 .0 0 BATCH 0 0 0 0
02.39.54 J0003569 -COPYMFR 00 171 37 .00 .00 .0 443 BATCH 0 0 0 0
02.39.54 J0003569 -COPYFMT 00 181 40 .00 .00 .0 459 BATCH 0 0 0 0
02.39.55 J0003569 -SUCCESS 00 901 206 .00 .00 .0 1227 BATCH 0 0 0 0
02.39.55 J0003569 -CHKCOND 00 14 2 .00 .00 .0 30 BATCH 0 0 0 0
02.39.55 J0003569 -FAILURE FLUSH 0 0 .00 .00 .0 0 BATCH 0 0 0 0
02.39.56 J0003569 -PRINT 00 431 45 .00 .00 .0 1059 BATCH 0 0 0 0
02.39.56 J0003569 -COMPLST 00 140 32 .00 .00 .0 402 BATCH 0 0 0 0
02.39.56 J0003569 -ILODLST 00 713 185 .00 .00 .0 702 BATCH 0 0 0 0
02.39.57 J0003569 -USER015A ENDED. NAME-IMSA TOTAL TCB CPU TIME= .01 TOTAL ELAPSED TIME= .0
02.39.57 J0003569 $HASP395 USER015A ENDED - RC=0004
------ JES2 JOB STATISTICS ------
26 JUN 2018 JOB EXECUTION DATE
340 CARDS READ
1,388 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
108 SYSOUT SPOOL KBYTES
0.10 MINUTES EXECUTION TIME
******************************** BOTTOM OF DATA ************************************************************************
More excerpts from the MFSGEN:
...
********************************************************************************
* DDNAME: MFSS1.UTPRINT *
* DDNAME: MFSS2.UTPRINT *
********************************************************************************
DFS1011I SQDF1 DOF SIZE=0184 3270 24X80 027F IGNORE DATE=06/26/18 TIME=02.39.53 ADDED.
DFS1011I SQDF1 DIF SIZE=0042 3270 24X80 027F IGNORE DATE=06/26/18 TIME=02.39.53 ADDED.
DFS1011I SQMO1 MSG SIZE=004A DATE=06/26/18 TIME=02.39.53 ADDED.
DFS1011I SQMI1 MSG SIZE=0048 DATE=06/26/18 TIME=02.39.53 ADDED.
DFS1060I SQDF1 BUFFER SIZE = 0274
DFS1048I SQDF1 DOF SIZE=0184 3270 24X80 027F IGNORE DATE=06/26/18 TIME=02.39.53 CREATED.
DFS1048I SQDF1 DIF SIZE=0042 3270 24X80 027F IGNORE DATE=06/26/18 TIME=02.39.53 CREATED.
DFS1040I DEVICE MAPPING FOR FMT=SQDF1 DEVICE=3270 - 2 TYPE=INOUT DPAGE=01 PHYSICAL PAGE=01
*-------------------------------------------------------------------------------- | |
| |
| AUBREY SUSAN SUPPORT SYSTEMS |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| TRANCODE _________ |
| STARTNUM _________ |
| ENDNUM _________ |
| RESULT _________ |
| |
| |
| ______________________________________________________________________________|
| |
| |
| |
*--------------------------------------------------------------------------------*
DFS1026I SQMO1 MESSAGE DESCRIPTOR STRUCTURE:
DFS1021I SQMO1 MSG
DFS1023I SEG00018 SEG
DFS1024I MFL00019 MFLD
DFS1024I MFL00020 MFLD
DFS1024I MFL00021 MFLD
DFS1024I MFL00022 MFLD
DFS1028I END OF DESCRIPTOR STRUCTURE.
DFS1048I SQMO1 MSG SIZE=004A DATE=06/26/18 TIME=02.39.53 CREATED.
DFS1026I SQMI1 MESSAGE DESCRIPTOR STRUCTURE:
DFS1021I SQMI1 MSG
DFS1023I SEG00025 SEG
DFS1024I MFL00026 MFLD
DFS1024I MFL00027 MFLD
DFS1024I MFL00028 MFLD
DFS1028I END OF DESCRIPTOR STRUCTURE.
DFS1060I SQMI1 BUFFER SIZE = 0031
DFS1048I SQMI1 MSG SIZE=0048 DATE=06/26/18 TIME=02.39.53 CREATED.
The remaining excerpts from the MFSGEN:
********************************************************************************
* DDNAME: COPYMFR.SYSPRINT *
********************************************************************************
SER9403I SERCOPY options: BSAM FULL REALLOC RETRY RSTATS
SER9405I Input dsname: SYS18177.T023950.RA000.USER015A.TEMPMFR.H09
SER9406I Output dsname: CMNTP.S6.IMSA.STG6.#000001.MFR
SER9407I Begin copy: INFILE=SYSUT1 OUTFILE=SYS00003
SER9420I Member successfully copied: SQDF1
SER9420I Member successfully copied: SQMI1
SER9420I Member successfully copied: SQMO1
SER9424I Number of members copied: 3
SER9425I Copy completed successfully
********************************************************************************
* DDNAME: COPYFMT.SYSPRINT *
********************************************************************************
SER9403I SERCOPY options: BSAM FULL LMOD MFS REALLOC RETRY
SER9405I Input dsname: SYS18177.T023950.RA000.USER015A.TEMPFMT.H09
SER9406I Output dsname: CMNTP.S6.IMSA.STG6.#000001.FMT
SER9407I Begin copy: INFILE=SYSUT1 OUTFILE=SYS00005
SER9420I Member successfully copied: "sQDF1
SER9420I Member successfully copied: "SQDF1
SER9420I Member successfully copied: SQMI1
SER9420I Member successfully copied: SQMO1
SER9424I Number of members copied: 4
SER9425I Copy completed successfully
Component SQDF1 is in ACTIVE status and the package master
LOAD record has been updated accordingly. IMSA000023
LOAD COMPONENT ACTIVATED. IMSA000023
LOAD COMPONENT ACTIVATION LOGGED. IMSA000023
HISTORY RECORD has been updated accordingly. IMSA000023
SYSIN: IMSA000023 90 LNM=SQMI1
Component SQMI1 is in ACTIVE status and the package master
LOAD record has been updated accordingly. IMSA000023
LOAD COMPONENT ACTIVATED. IMSA000023
LOAD COMPONENT ACTIVATION LOGGED. IMSA000023
HISTORY RECORD has been updated accordingly. IMSA000023
SYSIN: IMSA000023 90 LNM=SQMO1
Component SQMO1 is in ACTIVE status and the package master
LOAD record has been updated accordingly. IMSA000023
LOAD COMPONENT ACTIVATED. IMSA000023
LOAD COMPONENT ACTIVATION LOGGED. IMSA000023
HISTORY RECORD has been updated accordingly. IMSA000023
...
Component "sQDF1 is in ACTIVE status and the package master
LOAD record has been updated accordingly. IMSA000023
LOAD COMPONENT ACTIVATED. IMSA000023
LOAD COMPONENT ACTIVATION LOGGED. IMSA000023
HISTORY RECORD has been updated accordingly. IMSA000023
SYSIN: IMSA000023 90 LNM= "SQDF1
Component "SQDF1 is in ACTIVE status and the package master
LOAD record has been updated accordingly. IMSA000023
LOAD COMPONENT ACTIVATED. IMSA000023
LOAD COMPONENT ACTIVATION LOGGED. IMSA000023
HISTORY RECORD has been updated accordingly. IMSA000023
SYSIN: IMSA000023 90 LNM=SQMI1
Component SQMI1 is in ACTIVE status and the package master
LOAD record has been updated accordingly. IMSA000023
LOAD COMPONENT ACTIVATED. IMSA000023
LOAD COMPONENT ACTIVATION LOGGED. IMSA000023
HISTORY RECORD has been updated accordingly. IMSA000023
SYSIN: IMSA000023 90 LNM=SQMO1
Component SQMO1 is in ACTIVE status and the package master
LOAD record has been updated accordingly. IMSA000023
LOAD COMPONENT ACTIVATED. IMSA000023
LOAD COMPONENT ACTIVATION LOGGED. IMSA000023
HISTORY RECORD has been updated accordingly. IMSA000023
END OF DATA ON SYSIN - TERMINATING
Session terminated with ChangeMan ZMF started task
<SIZE: RECS=907 BYTES=44958>
Staging the DBB (Db2 Bind requirements)
Here’s the source:
BROWSE CMNTP.SERT6.BASE.IMSQ.DBB(IM2Q101) - 01.01 Line 00000000 Col 001 080
Command ===>_____________________________ Scroll ===> CSR
********************************* Top of Data **********************************
BIND PLAN(IM2Q101) - 00010001
PKLIST(CMN7.IM2Q101) - 00020001
ACT(REP) - 00030001
ISO(CS) - 00040001
EXPLAIN(NO) - 00050001
VALIDATE(BIND) - 00060001
ACQUIRE(USE) - 00070001
RELEASE(COMMIT) 00080001
******************************** Bottom of Data ********************************
CMNSTG03 Stage from Development Row 1 to 1 of 1
Command ===> __________________________________________ Scroll ===> CSR
From dataset name
CMNTP.SERT6.BASE.IMSQ.DBB
Name Function vv.mm Created Changed Size Init User
s IM2Q101 01.01 2018/06/26 2018/06/26 03:17 00008 00008 USER015
******************************* Bottom of data *******************************
The DBB member is STAGED
CMNSTG03 Stage from Development IM2Q101 STAGED
Command ===>__________________________________________ Scroll ===> CSR
From dataset name
CMNTP.SERT6.BASE.IMSQ.DBB
Name Function vv.mm Created Changed Size Init User
__IM2Q101 *STAGE 01.01 2018/06/26 2018/06/26 03:17 00008 00008 USER015
******************************* Bottom of data *******************************
CMN2575I - IM2Q101 component staged from CMNTP.SERT6.BASE.IMSQ.DBB
Staging the COBOL source
Make sure the Db2 Active Libraries are set up properly:
CMNLD2AL ------------------ Db2 Active Library List ---------- Row 1 to 4 of 4
Command ===> _________________________________________________ Scroll ===> CSR
Logical Bind
name /SQL Db2 active library name
____ PROM810 B CMNTP.SERT6.PROM.IMSQ.C001AUT.DBR
____ PROM810 B CMNTP.SERT6.PROM.IMSQ.C001AUT.DBB
____ PROM810 B CMNTP.SERT6.PROM.IMSQ.C001AQA.DBR
____ PROM810 B CMNTP.SERT6.PROM.IMSQ.C001AQA.DBB
******************************* Bottom of data ********************************
Select IM2Q101 for Staging:
CMNSTG03 Stage from Development Row 1 to 1 of 1
Command ===>____________________________________ Scroll ===> CSR
From dataset name
CMNTP.SERT6.BASE.IMSQ.SRC
Name Function vv.mm Created Changed Size Init User
__s IM2Q101 01.01 2018/05/01 2018/05/03 16:11 00102 00102 USER022
******************************* Bottom of data *******************************
On the build panel make sure that Db2 processing is selected
CMNSTG04 Stage: Build
Command ===>_____________________________________________
Package: IMSA000023 Status: DEV Install date: 20180909
Staged name . . . . IM2Q101 +
Library type . . . . SRC - Source for Programs to be Linked Executable
Dataset name . . . . CMNTP.SERT6.BASE.IMSQ.SRC
+
Language . . . . . . . . . COBOL2 (Blank for list)
Compile procedure . . . . CMNCOB2 (Blank for list; ? for designated proc.)
Compile parms . . . . . . ____________________________________
Pgm binder parms . . . . . ____________________________________
Enter "/" to select option
/ Db2 processing
/ Other Db2 options
/ Other options __User variables
__Suppress messages
Job statement information:
//USER015A JOB (ACCOUNT),'IMSA',
// CLASS=A,
// NOTIFY=USER015,
// MSGCLASS=X
If there are differences then you must select on, here select the first C11J:
CMNSTG18 Db2 Physical Subsystems Row 1 to 7 of 7
Command ===>__________________________________________________ Scroll ===> CSR
Version . . _________________________________________________________
Db2 Db2 system
subsys Site load library
__ C10J SYS2.DB21010.SDSNLOAD
__ C10J SERT6 SYS2.DB21010.SDSNLOAD
__ C10J PROD SYS2.DB21010.SDSNLOAD
__ C10J UNIT SYS2.DB21010.SDSNLOAD
__ C10J SYST SYS2.DB21010.SDSNLOAD
s C11J SERT6P1 SYS2.DB21010.SDSNLOAD
__ C11J SERT6P2 SYS2.DB21010.SDSNLOAD
******************************* Bottom of data *******************************
Excerpts from the job to Stage IM2Q101:
J E S 2 J O B L O G -- S Y S T E M Q 0 0 1 -- N O D E M P 3 J E S 2
16.16.26 J0004943 ---- TUESDAY, 26 JUN 2018 ----
16.16.26 J0004943 IRR010I USERID SERT IS ASSIGNED TO THIS JOB.
16.16.27 J0004943 ICH70001I SERT LAST ACCESS AT 02:39:51 ON TUESDAY, JUNE 26, 2018
16.16.27 J0004943 $HASP373 USER015A STARTED - INIT 1 -CLASS A - SYS Q001
16.16.28 J0004943 - --TIMINGS (MINS.)-- -----PAGING COUNTS----
16.16.28 J0004943 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
16.16.28 J0004943 -SERCOPY 00 234 52 .00 .00 .0 996 BATCH 0 0 0 0
16.16.28 J0004943 IEC130I SYSLIB DD STATEMENT MISSING
16.16.28 J0004943 -WRITE 00 736 188 .00 .00 .0 871 BATCH 0 0 0 0
16.16.29 J0004943 -DB2PC 04 498 32 .00 .00 .0 678 BATCH 4 0 0 0
16.16.30 J0004943 -B90DBR 00 112 22 .00 .00 .0 244 BATCH 0 0 0 0
16.16.30 J0004943 -COBOL2 00 456 88 .00 .00 .0 780 BATCH 0 0 0 0
16.16.30 J0004943 -SSIDN 00 111 48 .00 .00 .0 3009 BATCH 0 0 0 0
16.16.30 J0004943 -ALOCIN 00 37 16 .00 .00 .0 1004 BATCH 0 0 0 0
16.16.30 J0004943 -LNK 00 332 302 .00 .00 .0 2764 BATCH 0 0 0 0
16.16.30 J0004943 -BT90LOD 00 208 82 .00 .00 .0 2200 BATCH 0 0 0 0
16.16.30 J0004943 -VFYILOD 00 238 75 .00 .00 .0 8890 BATCH 0 0 0 0
16.16.30 J0004943 -DLTILOD 00 125 47 .00 .00 .0 1090 BATCH 0 0 0 0
16.16.30 J0004943 -CPYLOD 00 228 845 .00 .00 .0 2960 BATCH 0 0 0 0
16.16.30 J0004943 -CPYDBR 00 176 551 .00 .00 .0 222 BATCH 0 0 0 0
16.16.30 J0004943 -SUCCESS 00 688 343 .00 .00 .0 21907 BATCH 0 0 0 0
16.16.30 J0004943 -CHKCOND 00 19 7 .00 .00 .0 1103 BATCH 0 0 0 0
16.16.31 J0004943 -FAILURE FLUSH 0 0 .00 .00 .0 0 BATCH 0 0 0 0
16.16.31 J0004943 -PRINT 00 165 25 .00 .00 .0 663 BATCH 0 0 0 0
16.16.31 J0004943 -COMPLST 00 142 33 .00 .00 .0 405 BATCH 0 0 0 0
16.16.32 J0004943 -ILODLST 00 718 185 .00 .00 .0 710 BATCH 0 0 0 0
16.16.32 J0004943 -USER015A ENDED. NAME-IMSA TOTAL TCB CPU TIME= .01 TOTAL ELAPSED TIME= .05
16.16.32 J0004943 $HASP395 USER015A ENDED - RC=0004
000186 MAIN-ROUTINE.
000187 *(1)
000188 *****EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC.
000189 *(2)
000190 CALL 'CBLTDLI' USING GET-UNIQUE
000191 IO-PCB
000192 INPUT-MESSAGE.
000193 *(3)
000194 IF IO-STATUS NOT = SPACES
000195 *(4)
000196 1 GOBACK.
000197 *(5)
000198 PERFORM SQL-CALL.
000199 MOVE INPUT-TEXT TO OUTPUT-TEXT
000200 MOVE SQLCODE TO NUMBER1 IN OUTPUT-TEXT.
000201 MOVE SQLVALUE TO RESULT IN OUTPUT-TEXT.
000202 *(6)
000203 CALL 'CBLTDLI' USING INSRT
000204 IO-PCB
000205 OUTPUT-MESSAGE.
000206 *(7)
000207 GO TO MAIN-ROUTINE.
000208 SQL-CALL.
000209 MOVE NUMBER1 IN INPUT-TEXT TO LOWNUM.
000210 MOVE NUMBER2 IN INPUT-TEXT TO HIGHNUM.
000211 *****EXEC SQL DECLARE TESTCURS CURSOR FOR
000212 ***** SELECT COUNT(*) FROM SQSYN
000213 ***** WHERE KSEQ BETWEEN :LOWNUM AND :HIGHNUM
000214 ***** AND K250K = 2
000215 ***** END-EXEC.
000216 *****EXEC SQL OPEN TESTCURS END-EXEC.
000217 PERFORM SQL-INITIAL UNTIL SQL-INIT-DONE
000218 CALL "DSNHLI" USING SQL-PLIST3.
000219 *****EXEC SQL
000220 ***** FETCH TESTCURS INTO :SQLVALUE
000221 ***** END-EXEC.
000222 PERFORM SQL-INITIAL UNTIL SQL-INIT-DONE
000223 CALL "DSNHLI" USING SQL-PLIST4.
000224 *****EXEC SQL
000225 ***** CLOSE TESTCURS
000226 ***** END-EXEC.
000227 PERFORM SQL-INITIAL UNTIL SQL-INIT-DONE
000228 CALL "DSNHLI" USING SQL-PLIST5.
More excerpts from the JOB to Stage COBOL/DB2/DLI component IM2Q101
********************************************************************************
* DDNAME: DB2PC.SYSPRINT *
********************************************************************************
DB2 SQL PRECOMPILER VERSION 10 REL. 1.0 PAGE 1
DSNH527I W DSNHOPTS THE PRECOMPILER OR DB2 COPROCESSOR ATTEMPTED TO USE THE DB2-SUPPLIED DSNHDECP MODULE.
OPTIONS SPECIFIED: HOST(COB2),
DSNH024I W DSNHOPTS SUBOPTION "COB2" INVALID FOR OPTION "HOST"
DSNHDECP LOADED FROM - (SYS2.DB21010.SDSNLOAD(DSNHDECP))
OPTIONS USED - SPECIFIED OR DEFAULTED
ATTACH(TSO)
CCSID(500)
CONNECT(2)
DEC(15)
DECP(DSNHDECP)
FLAG(I)
HOST(IBMCOB)
LINECOUNT(60)
MARGINS(8,72)
NEWFUN(V10)
ONEPASS
OPTIONS
PERIOD
QUOTE
QUOTESQL
NOSOURCE
SQL(DB2)
STDSQL(NO)
NOXREF
DB2 SQL PRECOMPILER MESSAGES PAGE 2
DSNH050I I DSNHMAIN WARNINGS HAVE BEEN SUPPRESSED DUE TO LACK OF TABLE DECLARATIONS
DB2 SQL PRECOMPILER STATISTICS PAGE 3
SOURCE STATISTICS
SOURCE LINES READ: 102
NUMBER OF SYMBOLS: 50
SYMBOL TABLE BYTES EXCLUDING ATTRIBUTES: 5656
THERE WERE 3 MESSAGES FOR THIS PROGRAM.
THERE WERE 0 MESSAGES SUPPRESSED BY THE FLAG OPTION.
213232 BYTES OF STORAGE WERE USED BY THE PRECOMPILER.
RETURN CODE IS 4
********************************************************************************
* DDNAME: B90DBR.SYSPRINT *
********************************************************************************
ChangeMan(R) ZMF CMNBAT90 - 8.2.0 TUESDAY JUNE 26, 2018 16:16:30
Execution parameter: BINDLIST=XLMOD
SYSIN: PKG=IMSA000023
SYSIN: SLT=SRC
SYSIN: SNM=IM2Q101
SYSIN: SID=USER015
SYSIN: SSI=6E025E53
SYSIN: LNG=COBOL2
SYSIN: PRC=CMNCOB2
SYSIN: LLT=DBR
SYSIN: SUP=NO
CMN5400I - Time of day at end of job: 16:16:30 - Condition Code on exit: 00
Package Promotion Considerations
DBD and/or PSB override information is processed to determine if DBDs and/or PSBs will need to be GENed. If you (the administrator) specified that you always want to generate PSBs and/or DBDs, then the override information is processed to determine if the override should be done first (before the generation takes place).
IMS control regions are processed for the appropriate control region. It is also determined whether the development DEVCHAR suffix is different from the production one, or if the referal libraries need to be updated. In the latter case, an MSF generation is required.
Let’s Promote package IMSA000023; Here’s what’s in the package:
CMNSTG01 STAGE: IMSA000023 Components Row 1 to 5 of 5
Command ===>______________________________________________________ Scroll ===> CSR
Name + Type Status Changed Procname User Request
CUSEDBD DBD ACTIVE 20180626 011017 CMNDBDGN USER015 LOCKED
IM2QFMT MFS ACTIVE 20180626 023955 CMNMFSGN USER015 LOCKED
IM2Q101 DBB ACTIVE 20180626 032322 USER015 LOCKED
IM2Q101 PSB ACTIVE 20180626 004728 CMNPSBGN USER015 LOCKED
IM2Q101 SRC ACTIVE 20180626 161611 CMNCOB2 USER015 LOCKED
******************************* Bottom of data *******************************
CMN@PRIM ChangeMan(R) ZMF Primary Option Menu SYS(6)
Option ===>
0 Settings User parameters
1 Build Create, update and review package data
2 Freeze Freeze or unfreeze a package
3 Promote Promote or demote a package
4 Approve Approve or reject a package
5 List Display (to process) package list
6 Reports Generate ChangeMan ZMF batch reports
7 Release Extended Release Management
A Admin Perform administrative functions
B Backout Back out a package in production
C M+R Merge+Reconcile
D Delete Delete or undelete a package
L Log Browse the activity log
M Monitor Monitor internal scheduler or packages in limbo
N Notify Browse the Global Notification File
O OFMlist Online Forms package list
Q Query Query packages, components and relationships
R Revert Revert a package to DEV status
T Tutorial Display information about ChangeMan ZMF
X Exit Exit ChangeMan ZMF
Select P:
CMNRPM00 Promote/Demote a Change Package
Option ===>_________________________________________
P Promote D Demote
Package . . . IMSA000023
Select F for full promotion:
CMNRPM03 Promote Options
Option ===>__________________________________
F Full promotion S Selective promotion
H Display history O Check for overlay
Package: IMSA000023 Status: DEV Install date: 20180909
Promotion site: SERT6P1
Current promotion level: STAGING + 0
Next promotion level . . 10
Schedule: date . . . . . __________time . . . . .___
Enter "/" to select option
__Short selection list __Bypass overlay check
__User variables __Suppress batch messages
Job statement information:
//USER015A JOB (ACCOUNT),'IMSA',
// CLASS=A,
// NOTIFY=USER015,
// MSGCLASS=X
A JOB is submitted:
CMNRPM00 Promote/Demote a Change Package Request submitted
Option ===>______________________________________
P Promote D Demote
Package . . . IMSA000023
...
CMN3281I - request submitted for promotion to SERT6P1,S6P1UT.
Upon completion of the promote job ChangeMan will notify the submitter of the success or failure of the promote job. Below is the message from a successful promote:
Job USER015D(J0005312) submitted CN(INTERNAL)
CMN402I - IMSA000023 PROMOTED TO SERT6P1 S6P1UT LEVEL 10 2018/06/26 @ 19:00:23. CN(INTERNAL)
***
********************************* TOP OF DATA *************************************************************************
J E S 2 J O B L O G -- S Y S T E M Q 0 0 1 -- N O D E M P 3 J E S 2
18.54.03 J0005308 ---- TUESDAY, 26 JUN 2018 ----
18.54.03 J0005308 IRR010I USERID SERT IS ASSIGNED TO THIS JOB.
18.54.04 J0005308 ICH70001I SERT LAST ACCESS AT 18:39:06 ON TUESDAY, JUNE 26, 2018
18.54.04 J0005308 $HASP373 USER015A STARTED - INIT 1 - CLASS A - SYS Q001
18.54.05 J0005308 - --TIMINGS (MINS.) -----PAGING COUNTS----
18.54.05 J0005308 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
18.54.05 J0005308 -CPY1DBD 00 98 167 .00 .00 .0 228 BATCH 0 0 0 0
18.54.05 J0005308 -DBD1A1 00 230 71 .00 .00 .0 861 BATCH 0 0 0 0
18.54.05 J0005308 -DBD1S1 00 83 30 .00 .00 .0 266 BATCH 0 0 0 0
18.54.06 J0005308 -DBD1L1 00 96 27 .00 .00 .0 339 BATCH 0 0 0 0
18.54.06 J0005308 -CPY1PSB 00 95 50 .00 .00 .0 184 BATCH 0 0 0 0
18.54.06 J0005308 -PSB1A1 00 160 107 .00 .00 .0 420 BATCH 0 0 0 0
18.54.07 J0005308 -PSB1S1 00 84 17 .00 .00 .0 222 BATCH 0 0 0 0
18.54.07 J0005308 -PSB1L1 00 101 27 .00 .00 .0 375 BATCH 0 0 0 0
18.54.07 J0005308 -CIP1DBL 00 116 49 .00 .00 .0 225 BATCH 0 0 0 0
18.54.08 J0005308 -CIP1FMT 00 123 71 .00 .00 .0 282 BATCH 0 0 0 0
18.54.08 J0005308 -CIP1PSL 00 115 53 .00 .00 .0 239 BATCH 0 0 0 0
18.54.09 J0005308 -ACBGEN1 00 463 189 .00 .00 .0 976 BATCH 0 0 0 0
18.54.10 J0005308 -SUCCESS 00 770 243 .00 .00 .0 812 BATCH 0 0 0 0
18.54.10 J0005308 -CHKCOND 00 14 3 .00 .00 .0 30 BATCH 0 0 0 0
18.54.10 J0005308 -FAILURE FLUSH 0 0 .00 00 .0 0 BATCH 0 0 0 0
18.54.10 J0005308 -PRINT 00 286 36 .00 .00 .0 639 BATCH 0 0 0 0
18.54.10 J0005308 -CLNLCL 00 90 44 .00 .00 .0 148 BATCH 0 0 0 0
18.54.10 J0005308 -USER015A ENDED. NAME-IMSA TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .1
18.54.10 J0005308 $HASP395 USER015A ENDED - RC=0000
IEBCOPY MESSAGES AND CONTROL STATEMENTS PAGE 1
IEB1135I IEBCOPY FMID HDZ2230 SERVICE LEVEL UA92265 DATED 20170618 DFSMS 02.03.00 z/OS 02.03.00 HBB77B0 CPU 2965
IEB1035I USER015A CPY1DBD 18:54:05 TUE 26 JUN 2018 PARM=''
COPY INDD=((STGDBD,R)),OUTDD=PRMDBD
SELECT MEMBER=CUSEDBD
IEB1013I COPYING FROM PDS INDD=STGDBD VOL=SRSM31 DSN=CMNTP.S6.IMSA.STG6.#000001.DBD
IEB1014I TO PDS OUTDD=PRMDBD VOL=C1054D DSN=CMNTP.S6.IMSA.PROM.S6P1UT.DBD
IEB167I FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY STGDBD
IEB154I CUSEDBD HAS BEEN SUCCESSFULLY COPIED
IEB1098I 1 OF 1 MEMBERS COPIED FROM INPUT DATA SET REFERENCED BY STGDBD
IEB144I THERE ARE 0 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY PRMDBD
IEB149I THERE ARE 4 UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I END OF JOB - 0 WAS HIGHEST SEVERITY CODE
IEBCOPY MESSAGES AND CONTROL STATEMENTS PAGE 1
IEB1135I IEBCOPY FMID HDZ2230 SERVICE LEVEL UA92265 DATED 20170618 DFSMS 02.03.00 z/OS 02.03.00 HBB77B0 CPU 2965
IEB1035I USER015A CPY1PSB 18:54:06 TUE 26 JUN 2018 PARM=''
COPY INDD=((STGPSB,R)),OUTDD=PRMPSB
SELECT MEMBER=IM2Q101
IEB1013I COPYING FROM PDS INDD=STGPSB VOL=C1054D DSN=CMNTP.S6.IMSA.STG6.#000001.PSB
IEB1014I TO PDS OUTDD=PRMPSB VOL=SRSM31 DSN=CMNTP.S6.IMSA.PROM.S6P1UT.PSB
IEB167I FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY STGPSB
IEB154I IM2Q101 HAS BEEN SUCCESSFULLY COPIED
IEB1098I 1 OF 1 MEMBERS COPIED FROM INPUT DATA SET REFERENCED BY STGPSB
IEB144I THERE ARE 0 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY PRMPSB
IEB149I THERE ARE 4 UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I END OF JOB - 0 WAS HIGHEST SEVERITY CODE
Still more excerpts from the package promotion.
********************************************************************************
* DDNAME: SUCCESS.SYSPRINT *
********************************************************************************
ChangeMan(R) ZMF CMNBATCH - 8.2.0 2018/06/26 18:54:09
Attempting to initiate dialog with ChangeMan ZMF subtask
Session established with ChangeMan ZMF subtask
SYSIN: IMSA000023 85 FUN=PROMOTE,NOD=SERT6P1
SYSIN: IMSA000023 85 LVL=10,LNM=S6P1UT,CID=USER015
SYSIN: IMSA000023 85 SUP=NO,SSI=6E027FC3
SYSIN: IMSA000023 85 TYP=DBL
SYSIN: IMSA000023 85 CMP=CUSEDBD
Component History has been updated.
Component Promotion History has been updated
Promotion logged IMSA000023
SYSIN: IMSA000023 85 TYP=FMT
SYSIN: IMSA000023 85 CMP= "sQDF1
Component History has been updated.
Component Promotion History has been updated
Promotion logged IMSA000023
SYSIN: IMSA000023 85 CMP= "SQDF1
Component History has been updated.
Component Promotion History has been updated
Promotion logged IMSA000023
SYSIN: IMSA000023 85 CMP=SQMI1
Component History has been updated.
Component Promotion History has been updated
Promotion logged IMSA000023
SYSIN: IMSA000023 85 CMP=SQMO1
Component History has been updated.
Component Promotion History has been updated
Promotion logged IMSA000023
SYSIN: IMSA000023 85 TYP=PSL
...
SYSIN: IMSA000023 85 CMP=IM2Q101
Component History has been updated.
Component Promotion History has been updated
Promotion logged IMSA000023
SYSIN: IMSA000023 85 TYP=DBD
SYSIN: IMSA000023 85 CMP=CUSEDBD
Component History has been updated.
Component Promotion History has been updated
Promotion logged IMSA000023
SYSIN: IMSA000023 85 TYP=PSB
SYSIN: IMSA000023 85 CMP=IM2Q101
Component History has been updated.
Component Promotion History has been updated
Promotion logged IMSA000023
SYSIN: IMSA000023 85 FUN=END
Package Promotion history has been updated
Package Promotion Unlocked
Package IMSA000023 PROMOTE
Package General record has been updated.
END OF DATA ON SYSIN - TERMINATING
Session terminated with ChangeMan ZMF started task
<SIZE: RECS=1480 BYTES=91549>
After successful promotion, the package is now FROZEN before being Approved.
CMN@PRIM ChangeMan(R) ZMF Primary Option Menu SYS(6)
Option ===> 2___________________________________________________
0 Settings User parameters
1 Build Create, update and review package data
2 Freeze Freeze or unfreeze a package
3 Promote Promote or demote a package
4 Approve Approve or reject a package
5 List Display (to process) package list
6 Reports Generate ChangeMan ZMF batch reports
7 Release Extended Release Management
A Admin Perform administrative functions
B Backout Back out a package in production
C M+R Merge+Reconcile
D Delete Delete or undelete a package
L Log Browse the activity log
M Monitor Monitor internal scheduler or packages in limbo
N Notify Browse the Global Notification File
O OFMlist Online Forms package list
Q Query Query packages, components and relationships
R Revert Revert a package to DEV status
T Tutorial Display information about ChangeMan ZMF
X Exit Exit ChangeMan ZMF
Select 1 for Online Freeze.
CMNFRZ01 Freeze Options
Option ===> 1______________________________________
Package . . . . IMSA000023
1 Online Freeze package online
2 Batch Freeze package in batch
3 Selective Selectively unfreeze/refreeze package components
4 Reset Reset indicator after unsuccessful batch freeze
5 Re-Build Re-submit install JCL build request
It’s frozen, on to Approval
CMNFRZ01 Freeze Options PACKAGE FROZEN
Option ===>________________________________________________
Package . . . . IMSA000023
1 Online Freeze package online
2 Batch Freeze package in batch
3 Selective Selectively unfreeze/refreeze package components
4 Reset Reset indicator after unsuccessful batch freeze
5 Re-Build Re-submit install JCL build request
...
CMN3000I - IMSA000023 change package has been frozen.
Back out to the main menu select 4 for Approve:
CMN@PRIM ChangeMan(R) ZMF Primary Option Menu SYS(6)
Option ===> 4__________________________________________
0 Settings User parameters
1 Build Create, update and review package data
2 Freeze Freeze or unfreeze a package
3 Promote Promote or demote a package
4 Approve Approve or reject a package
5 List Display (to process) package list
6 Reports Generate ChangeMan ZMF batch reports
7 Release Extended Release Management
A Admin Perform administrative functions
B Backout Back out a package in production
C M+R Merge+Reconcile
D Delete Delete or undelete a package
L Log Browse the activity log
M Monitor Monitor internal scheduler or packages in limbo
N Notify Browse the Global Notification File
O OFMlist Online Forms package list
Q Query Query packages, components and relationships
R Revert Revert a package to DEV status
T Tutorial Display information about ChangeMan ZMF
X Exit Exit ChangeMan ZMF
We are approving Simple Planned Permanent Package IMSA000023:
CMNAPPRV Approve Package Parameters
Command ===>_________________________________________
Specify selection criteria:
Package . . . . . . . . . . IMSA000023 (Full name or pattern, blank for list)
Approval entity name . . . __________ (Approvals for this security entity)
Notified user . . . . . . . __________
Work request . . . . . . . __________ questor name
Department . . . . . . . . __________ NameName
Site affected . . . . . . . ___________
Package level . . . . . . . 1 (1-Simple, 4-Participating)
Package type . . . . . . . p (Planned or Unplanned)
Package time span . . . . . p (Permanent or Temporary)
Install date: from . . . . ___________ (yyyymmdd)
to . . . . . ___________ (yyyymmdd)
Creation date: from . . . . ___________ (yyyymmdd)
to . . . . . ___________ (yyyymmdd)
Enter "/" to select option
__Other parameters
Select 1 for Approve:
CMNAPPOP Approve/Reject Options
Option ===>__________________________________________
Package: IMSA000023 Status: FRZ Install date: 20180707
1 Approve Approve or reject a change package
2 Reasons Display reasons a package was rejected
3 Query Query change package
4 Reset Reset approval in progress indicator
5 Re-Build Re-submit install JCL build request
Approve the first approver
CMNAPPLS Approval List Row 1 to 3 of 3
Command ===>_____________________________ Scroll ===> CSR
Package: IMSA000023 Status: FRZ Install date: 20180707
Approver Description User
Date Time Seq Status
a Development Team Lead
10
__Quality Assurance
20
__Program Manager
30
******************************* Bottom of data *******************************
Repeat and approve the next, then approve the final one
CMNAPPLS Approval List Row 1 to 3 of 3
Command ===> Scroll ===> CSR
Package: IMSA000023 Status: FRZ Install date: 20180707
Approver Description User
Date Time Seq Status
_ Development Team Lead USER015
20180626 2238 10 Approve
_ Quality Assurance USER015
20180626 2239 20 Approve
a Program Manager
30
******************************* Bottom of data *******************************
Approve the second id and hit enter:
CMN400I - Package IMSA000023 approved by USER015 on 2018/06/26 at 22:42 CN(INTERNAL)
***
Job IMSA1023(J0005786) submitted CN(INTERNAL)
CMN8700I - IMSA000023 Installation JCL Build service completed CN(INTERNAL)
***
Now the package is installed via a series of JOBS. The JOBS in BLUE below are the STAGING JOBS (already run), the JOB in GREEN is the PROMOTION JOB (already run), and the JOBS in RED are the INSTALLATION JOBS(just ran).
SDSF STATUS DISPLAY ALL CLASSES LINE 43-54 (54)
COMMAND INPUT ________________________ ===> SCROLL ===> CSR
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
S7IMSPSB J0525269 SERT 1 PRINT A 3336
S7IMSDBD J0525271 SERT 1 PRINT A 3338
S7IMSMFS J0525272 SERT 1 PRINT A 3339
S7IMSSRC J0525276 SERT 1 PRINT A 3341
S7IMSPRM J0525281 SERT 1 PRINT A 3347
IMSQ1011 J0525283 SERT 1 PRINT A 3349
IMSQ1111 J0525284 SERT 1 PRINT A 3350
IMSQ1511 J0525286 SERT 1 PRINT A 3351
IMSQ2011 J0525285 SERT 1 PRINT A 3352
IMSQ2511 J0525287 SERT 1 PRINT A 3353
SERT6 J0525290 SERT 1 PRINT A 3355
IMSQ3011 J0525288 SERT 1 PRINT A 3356
The following table gives a brief overview of each INSTALLATION JOB:
| JOB | Overview |
|---|---|
| IMSQ1011 | JOB TO SEND PACKAGE IMSQ000011 FROM SERT6 TO SERT6 Log DIS at SITE SERT6 |
| IMSQ1111 | JOB TO INSERT IMSQ000011 INFORMATION IN PACKAGE MASTER AT SERT6 Update DIS at PROD SITE SERT6 |
| IMSQ1511 | JOB TO ACKNOWLEDGE PACKAGE IMSQ000011 SENT FROM SERT6 TO SERT6 DIStribution acknowledged and logged at DEV |
| IMSQ2011 | IMS OPTION: JOB TO INSTALL PACKAGE IMSQ000011 INTO PRODUCTION Backup existing PRODuction environment, INSTALL new PRODuction environment, ACBGEN |
| IMSQ2511 | JOB TO ACKNOWLEDGE PACKAGE IMSQ000011 INSTALLATION AT SERT6 and kickoff package cleanup. |
| SERT6 | DEMOTE PACKAGE IMSQ000011 FROM C001AUT LVL 10 AT SERT6 SITE. |
| IMSQ3011 | IMS OPTION: JOB TO PERFORM BASELINE RIPPLE OF PACKAGE IMSQ000011 including final PSBGEN, DBDGEN MFSGEN, and ACBGEN. Run DSPTM to update Impact Analysis data. |
Upon successful PACKAGE installation you’ll see something like the following after querying the package’s SITE ACTIVITIES DATE AND TIME:
CMNQRY14 Site Activities Date and Time Row 1 to 1 of 1
Command ===>__________________________________ Scroll ===> CSR
Package: IMSA000023 Status: APR Install date: 20180707
Site Type of activity Date Time User
UNIT Distribution 20180626 2242
Dis-Acknowledgment 20180626 2242
Installation 20180626 2243
Temp Change Cycled
Full Back-Out
Revert Back to DEV
******************************* Bottom of data ********************************
Package Installation and Promotion Considerations
The process for installation is similar to that for promotion to a remote site. The staging process of IMS components is for installation at the development site; it uses the specified IMS control region. Therefore, generation of PSBs or DBDs are not required unless there are overrides or the ChangeMan ZMF Administrator has specified to always generate them. (This is also true for a specification of ALL SITE promotion.)
Promotion to a remote site is the same as promotion to a local site, except that everything happens at the remote site. the GENing for a remote site only takes place if the administrator has specified to do so, or if there are overrides. Otherwise, it is simply a copy.
Querying a Package with IMS Components
You can query a package containing IMS components in the same way you query any package: select Q (for Query) from the Primary Options menu. The following panel appears.
CMNQDMNU Query Options
Option ===>__________________________________
P Package Query package information
C Component Query component information
I Impact Impact analysis of subordinate components
B BofM Component bill of materials
A Approve Approve In Limbo packages
Select P to query package information.
CMNQRY00 Package Parameters
Command ===>_______________________________________
Package list (Blank, full name or mask separated by ;)
IMSA23
Enter "/" to select:
Package status __Dev __Frz __Apr __Rej __Dis __Ins
__Bas __Bak __Del __Opn __Clo __Tcc
Package level __Simple __Super __Complex __Participating
Package type __Planned Permanent __Planned Temporary
__Unplanned Permanent __Unplanned Temporary
Work request . . . . . ._____________
Department . . . . . . .____________
Install date: From . . .____ To . ._____ (YYYYMMDD)
Creation date: From . . _____To . ._____ (YYYYMMDD)
Site . . . . . . . . . ._____
Approver entity . . . . _____
Creator's id list (Blank, full name or mask separated by ;)
_____________________________________________________
Enter "/" to select option
__Enter more parameters
Select Source and Load Relationship:
CMNQRY03 Package Information Categories Row 1 to 20 of 20
Command ===>_______________________________________ Scroll ===> CSR
Package: IMSA000023 Status: APR Install date: 20180707
Creator: USER015 Audit RC: 00
__ General
__ Non-Source
__ Source
s Source and Load Relationship
__ Renames and Scratches
__ Approval List
__ Site/Install Date Information
__ Site Activities Date and Time
__ Online Forms
__ Participating Packages
__ Status Start Date and Time
__ Revert Reasons
__ Backout Reasons
__ Promotion History
__ Promotion Libraries
__ Development Staging Libraries
__ Production Staging Libraries
__ Production Libraries
__ Baseline Libraries
__ IMS Information
******************************* Bottom of data *******************************
Hit enter, you’ll get something like the following:.
CMNQRY21 Source to Load Relationship Row 1 to 2 of 2
Command ===>______________________________________ Scroll ===> CSR
Package: IMSA000023 Status: APR Install date: 20180707
Source Load
Name + Type Name + Type Status Promotion Changed User
CUSEDBD DBD CUSEDBD DBL FROZEN 0 STAGING 20180627 152431 USER25
CUSEDBD LST FROZEN 0 STAGING 20180627 152433 USER25
IM2QFMT MFS SQDF1 MFR FROZEN 0 STAGING 20180627 155035 USER25
."sQDF1 FMT FROZEN 0 STAGING 20180627 155035 USER25
."SQDF1 FMT FROZEN 0 STAGING 20180627 155035 USER25
IM2QFMT LST FROZEN 0 STAGING 20180627 155038 USER25
SQMI1 FMT FROZEN 0 STAGING 20180627 155035 USER25
SQMI1 MFR FROZEN 0 STAGING 20180627 155035 USER25
SQMO1 FMT FROZEN 0 STAGING 20180627 155035 USER25
SQMO1 MFR FROZEN 0 STAGING 20180627 155035 USER25
IM2QPSB PSB IM2QPSB PSL FROZEN 0 STAGING 20180627 145630 USER25
IM2QPSB LST FROZEN 0 STAGING 20180627 145633 USER25
IM2Q101 SRC IM2Q101 DBR FROZEN 0 STAGING 20180627 161558 USER25
IM2Q101 LOD FROZEN 0 STAGING 20180627 161558 USER25
IM2Q101 LST FROZEN 0 STAGING 20180627 161600 USER25
******************************* Bottom of data ********************************
Let’s query some COMPONENTS. Back to the QUERY OPTIONS panel, select C for Component:
CMNQDMNU Query Options
Option ===> c______________________________________
P Package Query package information
C Component Query component information
I Impact Impact analysis of subordinate components
B BofM Component bill of materials
A Approve Approve In Limbo packages
To Display all the FMT components, input the 'FMT' Lib Type in the Component type field, and an '*' in the Component name field then press enter. This will display all FMT components for all applications, which could be a very large list. To reduce the size of the list, consider qualifying the search with an APPLication name.
CMNQCMP1 Query Component Parameters
Command ===>_______________________________________
Specify selection criteria:
Component name . . . . . . *__________________________________ +
(Full component name or pattern)
Component type . . . . . . FMT (Full library type or pattern)
Application . . . . . . . ___
Package . . . . . . . . . ______
Enter "/" to select:
Package status . . . . . _ Dev _ Fr_ _ Apr _ Rej _ Dis _ Ins
_ Bas _ Bak _ Del _ Opn _ Clo _ Tcc _ D/A
Package type . . . . . . _ Planned Permanent _ Planned Temporary
_ Unplanned Permanent _ Unplanned Temporary
Procedure name . . . . . . ___________________
User . . . . . . . . . . . ___________________
Checkout/staging
From date . . . . . . . _____________ (YYYYMMDD)
To date . . . . . . . . _____________ (YYYYMMDD)
Enter "/" to select option:
__Include deleted components
__Mixed case
After hitting enter you’ll get something like the following:
CMNQCMP2 Component List Row 1 to 12 of 12
Command ===>__________________________________ Scroll ===> CSR
Lib Name +
_ FMT ."pAYF01
_ FMT ."sQDF1
_ FMT ."PAYF01
_ FMT ."SQDF1
_ FMT PAYD01
_ FMT PAYI01
_ FMT SQMI1
S FMT SQMO1
******************************* Bottom of data *******************************
Select an entry for more:
CMNCMPH1 Component history Row 1 to 1 of 1
Command ===> __________________________________Scroll ===> CSR
Component: SQM01.FMT +
Package Sta Promotion vv.mm P Last action Size Setssi User
__IMSA000023 APR 01.04 2018/04/27 00:22 00000 6DB264D2 USER015
******************************* Bottom of data *******************************
The S(select) command will display component build data for this component taken from the component history information.
The Q(query) command will display the package information categories in the same manner as if the user had entered the Q.P. (query package) function.
The P(Process) command will place the user in the staging panel allowing them to enter staging commands against the selected component. This is the same as if the user had entered the staging option 3 and the component name and type will be filled in for you. The C(Checkout) command will place the user at the checkout options panel. From there they can select the checkout option they wish to perform. The
package name is passed as well as the component name and type selected. The package name is available to be changed just in case they wish to checkout to another package. Regardless of the checkout option specified the panels following the option selection will automatically fill in the component name and type. If this is a checkout from package the source package will be the selected package of the component from the history list.
Select a package to show a screen of information similar to below:
CMNCMPH2 Compile and Binder Options
Command ===> _________________________________________
Package: IMSA000023 Status: APR Install Date: 20180707
Stager's userid . . . . . USER015
Component name . . . . . SQM01 +
Component type . . . . . FMT
Language . . . . . . . . ASM
Compile proc . . . . . . CMNMFSGN
Compile parms . . . . . .
Binder parms . . . . . .
Db2 processing . . . . . NO
Enter "/" to select option:
__Additional user options