(300) Simulation Test

Simulation test is a well designed function for you to quickly review QMirror/DR in a few minutes. Execute Simulation Test requires QMirror/DR library list to be empty. To empty QMirror/DR library list, use command option 3 – ‘Remove libraries from library list’.

Simulation test uses the following AS400 commands to build up simulation environments:

CRTLIB, CRTDTAARA, CRTSRCPF, ADDPFM, CPYF, CRTPF, CRTLF, MOVOBJ, CHGOBJD, CRTCLPGM, and SQL statements to INSERT, UPDATE physical file.

Start QMirror/DR, use command option T – ‘Simulation test’

20xx/xx/xx 10:01:23 Login AS400 at xxx.xxx.xxx.xxx …
20xx/xx/xx 10:01:31 Timer Synchronizing
20xx/xx/xx 10:02:04 AS400 – Serial number xxxxxxx Model xxx
20xx/xx/xx 10:02:04 OS400 – Version x Release x Modification x
20xx/xx/xx 10:02:04 Target AS400 – Serial number xxxxxxx Model xxx
20xx/xx/xx 10:02:04 Target OS400 – Version x Release x Modification x
20xx/xx/xx 10:02:04 QMirror working library on AS400 is QMIRROR
20xx/xx/xx 10:02:05 QMirror working library on target AS400 is

QMIRROR QMirror/DR x.x.x (released in 20xx/xx) command list (QMDR):
1 – Start QMirror/DR
4 – Build up object list from source AS400 libraries
6 – Show selected library list
7 – Show excluded object list
8 – ENDJRNPF unselected libraries
K – Change license key
R – Switch to recovery mode
T – Simulation test
U – Uninstall QMirror/DR
Q – Quit
Your option is (1/4/5/6/7/8/k/r/t/u/Q) t 

QMirror/DR will create two libraries, DR001 and DR002. Then build up simulation data in both libraries. 

Build up simulation data
CRTLIB – Create library DR001
CRTLIB – Create library DR002

CRTDTAARA – Create data area dtaara101 on library DR001
CRTDTAARA – Create data area dtaara202 on library DR002

CRTSRCPF – Create source physical file QCLPSRC on library DR001
ADDPFM – Add source physical file member CLP101 to QCLPSRC
Insert CLP statements into source CLP101
CPYF – Copy source member CLP101 to CLP102

CRTSRCPF – Create source physical file QDDSSRC on library DR001
ADDPFM – Add source physical file member FILE101 to QDDSSRC Insert DDS statements into source FILE101
CRTPF – Create physical file FILE101 from DDS on library DR001 Insert 5 records into FILE101
ADDPFM – Add source physical file member FILE101_LF to QDDSSRC
Insert DDS statements into source FILE101_LF
CRTLF – Create logical file FILE101_LF from DDS on library DR001

Done.

You can use PDM to review object list in libraries DR001 and DR002. 

Work with Objects Using PDM
Library . . . . . DR001 Position to . . . . . . . .
Position to type . . . . .
Type options, press Enter.
2=Change 3=Copy 4=Delete 5=Display 7=Rename
8=Display description 9=Save 10=Restore 11=Move …

OptObjectTypeAttribute Text
FILE101 *FILEPF-DTA Physical file 101
FILE101_LF*FILELFLogical file for FILE101
QCLPSRC*FILEPF-SRC
QDDSSRC*FILEPF-SRC
DTAARA101*DTAARAText of dtaara101

Parameters or command
===>
F3=Exit F4=Prompt F5=Refresh F6=Create
F9=Retrieve F10=Command entry F23=More options F24=More keys

Use command option 4 – ‘Build up object list from source AS400 libraries’ 

Please take the following steps:
Take a look at QMirror/DR simulation test data on your AS400
Use command option 4 to build up object list from library DR001 and DR002

QMirror/DR x.x.x (released in 20xx/xx) command list (QMDR):
1 – Start QMirror/DR
4 – Build up object list from source AS400 libraries
6 – Show selected library list
7 – Show excluded object list
8 – ENDJRNPF unselected libraries
K – Change license key
R – Switch to recovery mode
Q – Quit
Your option is (1/4/5/6/7/8/k/r/Q) 4

Build up object list from library DR001 and DR002.

Auto-select new libraries from source AS400 to target AS400? (y/N) n
New libraries auto-select disabled

Build up object list from source AS400 to target AS400 –
Enter source AS400 library name (*ALLUSR/generic*/name): dr001
Replicate from source libraries DR001 (y/N/q) y

DR001selected. Analyzing… 

OBJTYPESIZE(Kb) TEXT
———-——–——–——————–
DTAARA101 *DTAARA 9 Text of dtaara101
QCLPSRC *FILE 58
FILE101 *FILE 91Physical file 101
QDDSSRC *FILE58
FILE101_LF*FILE 29 Logical file for FILE101
FILE101*FILE13member FILE101
QCLPSRC*FILE9 member CLP101
QCLPSRC *FILE 9 member CLP102
QDDSSRC *FILE 9 member FILE101
QDDSSRC *FILE 9 member FILE101_LF 

Library DR001 has 10 objects/members, 0Mb
Total needs to transfer 10 objects/members, 0Mb 

Build up object list from source AS400 to target AS400 –
Enter source AS400 library name (*ALLUSR/generic*/name): (DR001/q) dr002
Replicate from source libraries R002 (y/N/q) y

DR002selected.Analyzing… 

OBJTYPESIZE(Kb) TEXT
———-——–——–——————–
DTAARA202 *DTAARA9Text of dtaara202 

Library DR002 has 1 objects/members, 0Mb
Total needs to transfer 11 objects/members, 0Mb 

Build up object list from source AS400 to target AS400 –
Enter source AS400 library name (*ALLUSR/generic*/name): (DR002/q) q

Done.

Use command 1 – ‘Start QMirror/DR’ 

Please use command option 1 to start QMirror/DR

QMirror/DR x.x.x (released in 20xx/xx) command list (QMDR):
1 – Start QMirror/DR
3 – Remove libraries from library list
4 – Build up object list from source AS400 libraries
6 – Show selected library list
7 – Show excluded object list
8 – ENDJRNPF unselected libraries
K – Change license key
R – Switch to recovery mode
U – Uninstall QMirror/DR
Q – Quit
Your option is (1/3/4/5/6/7/8/k/r/u/Q) 1

QMirror/DR will create libraries DR001 and DR002 on target AS400 and start to transfer objects from source AS400. 

20xx/xx/xx 10:05:09 End instance QMDR if running …
20xx/xx/xx 10:05:14 W103: QMirror/DR license will expire at the end of this month
20xx/xx/xx 10:05:14 Please extend your QMirror/DR license on www.qmirror.com
20xx/xx/xx 10:05:14 20xx/xx/xx 10:05:14 QMirror/DR x.x.x start up (QMDR) …
20xx/xx/xx 10:05:14 AS400 – Serial number xxxxxxx Model xxx
20xx/xx/xx 10:05:14 OS400 – Version x Release x Modification x
20xx/xx/xx 10:05:14 QMirror working library on AS400 is QMIRROR
20xx/xx/xx 10:05:14 Check target AS400 FTP status …
20xx/xx/xx 10:05:15 Target AS400 FTP threads enabled
20xx/xx/xx 10:05:15 Check AS400 FTP status …
20xx/xx/xx 10:05:16 AS400 FTP threads enabled
20xx/xx/xx 10:05:16 Journal status verification …
20xx/xx/xx 10:05:16 Total 2 libraries …
20xx/xx/xx 10:05:17 Building AS400 connections
20xx/xx/xx 10:05:21 Transfer threads fully started
20xx/xx/xx 10:05:26 Journal thread QMIRROR/JRN started
20xx/xx/xx 10:05:26 Initiating AS400 journaling …
20xx/xx/xx 10:05:26 Mirror start from 20xxxxxx/100500
20xx/xx/xx 10:05:26 Reorganize working library …
20xx/xx/xx 10:05:27 Transfer – DR001/QCLPSRC *FILE
20xx/xx/xx 10:05:27 Transfer – DR001/FILE101 *FILE
20xx/xx/xx 10:05:28 Transfer – DR001/QDDSSRC *FILE
20xx/xx/xx 10:05:35 Transfer – DR001/DTAARA101 *DTAARA
20xx/xx/xx 10:05:35 Transfer – DR002/DTAARA202 *DTAARA
20xx/xx/xx 10:05:35 Transfer – DR001/FILE101/FILE101
20xx/xx/xx 10:05:35 Transfer – DR001/QCLPSRC/CLP101
20xx/xx/xx 10:05:36 Transfer – DR001/QCLPSRC/CLP102
20xx/xx/xx 10:05:36 Transfer – DR001/QDDSSRC/FILE101
20xx/xx/xx 10:05:37 Transfer – DR001/QDDSSRC/FILE101_LF
20xx/xx/xx 10:05:47 Transfer – DR001/FILE101_LF *FILE
20xx/xx/xx 10:05:48 Mirror preparing …
20xx/xx/xx 10:06:01 Mirror threads fully started with journal length 194
20xx/xx/xx 10:06:05 Delay 6 secs. From 20xxxxxx/100500 to 100559
20xx/xx/xx 10:06:05 Replication now is up-to-date 

Simulation test continues to create and change objects on source AS400. Physical file DR001/FILE001 will be inserted with more records and changes. 

Continue simulation test

CRTDTAARA – Create dataarea dtaara102 on library DR001
CRTDTAARA – Create dataarea dtaara103 on library DR001
20xx/xx/xx 10:06:16 Transfer – QMIRROR/QZQMDRTRG0 *TRIGER
MOVOBJ – Move dataarea dtaara101 from library DR001 to DR002
20xx/xx/xx 10:06:20 Object deleted (O) – DR001/DTAARA101 *DTAARA
CHGOBJD – Change source physical file QCLPSRC text
ADDPFM – Add source physical file member CLP103 to QCLPSRC
Insert CLP statements into source CLP103
CRTCLPGM – Create CLP program CLP103
ADDPFM – Add source physical file member FILE101_L2 to QDDSSRC
Insert DDS statements into source FILE101_L2
CRTLF – Create another logical file FILE101_L2 from DDS on library DR001
20xx/xx/xx 10:06:39 Transfer – DR002/DTAARA101 *DTAARA
20xx/xx/xx 10:06:39 Transfer – DR001/DTAARA102 *DTAARA
20xx/xx/xx 10:06:39 Transfer – DR001/DTAARA103 *DTAARA
Double records in file FILE101 (total 10 rcds)
20xx/xx/xx 10:06:50 Physical file DR001/QCLPSRC changed
20xx/xx/xx 10:06:51 Delay 19 secs. From 20xxxxxx/100624 to 100634 (3 rcds)
20xx/xx/xx 10:06:51 Transfer – DR001/QCLPSRC/CLP103
Double records again in file FILE101 (total 20 rcds)
20xx/xx/xx 10:06:56 Delay 14 secs. From 20xxxxxx/100634 to 100644 (5 rcds)
20xx/xx/xx 10:06:57 Transfer – DR001/CLP103 *PGM
20xx/xx/xx 10:06:57 Transfer – DR001/QDDSSRC/FILE101_L2
Double records again in file FILE101 (total 40 rcds)
Double records again in file FILE101 (total 80 rcds)
20xx/xx/xx 10:07:07 Delay 15 secs. From 20xxxxxx/100644 to 100654 (5 rcds)
20xx/xx/xx 10:07:09 Transfer – DR001/FILE101_L2 *FILE
Double records again in file FILE101 (total 160 rcds)
20xx/xx/xx 10:07:17 Delay 15 secs. From 20xxxxxx/100654 to 100704 (30 rcds)
Double records again in file FILE101 (total 320 rcds)
20xx/xx/xx 10:07:27 Delay 15 secs. From 20xxxxxx/100704 to 100714 (40 rcds)
Double records again in file FILE101 (total 640 rcds)
20xx/xx/xx 10:07:37 Delay 15 secs. From 20xxxxxx/100714 to 100724 (80 rcds)
Double records again in file FILE101 (total 1280 rcds)
20xx/xx/xx 10:07:46 Delay 14 secs. From 20xxxxxx/100724 to 100734 (160 rcds)
20xx/xx/xx 10:07:56 Delay 14 secs. From 20xxxxxx/100734 to 100744 (320 rcds)
Double records again in file FILE101 (total 2560 rcds)
20xx/xx/xx 10:08:08 Delay 16 secs. From 20xxxxxx/100744 to 100754 (640 rcds)
Double records again in file FILE101 (total 5120 rcds)
Update file FILE101 set COL02=333,COL03=’333′ where COL01=’3′
20xx/xx/xx 10:08:27 Delay 15 secs. From 20xxxxxx/100804 to 100814 (1280 rcds)
Update file FILE101 set COL02=55555,COL03=’55555′ where COL01=’5′
20xx/xx/xx 10:08:48 Delay 16 secs. From 20xxxxxx/100824 to 100834 (3584 rcds)
20xx/xx/xx 10:08:57 Delay 15 secs. From 20xxxxxx/100834 to 100844 (1024 rcds)

Done.

You can do more changes on library DR001 or DR002 if you like.
Compare library DR001 and DR002 between source and target AS400 

You can use PDM to review object list in libraries DR001 and DR002.

Work with Objects Using PDM

Library . . . . . DR001 Position to . . . . . . . .
Position to type . . . . .

Type options, press Enter.
2=Change 3=Copy 4=Delete 5=Display 7=Rename
8=Display description 9=Save 10=Restore 11=Move …

Opt ObjectTypeAttributeText
CLP103*PGMCLPQMirror/DR test CLP 103
FILE101*FILEPF-DTAPhysical file 101
FILE101_LF*FILELFLogical file for FILE101
FILE101_L2*FILE LFLogical file for FILE101 #2
QCLPSRC *FILEPF-SRCCLP source file
QDDSSRC*FILEPF-SRC
DTAARA102*DTAARAText of dtaara102
DTAARA103*DTAARAText of dtaara103
Bottom 

STRSQL, use the following SQL statement to check if data in file DR001/FILE101 is same between source and target AS400s. 

SELECT COL01,COUNT(*),SUM(COL02) FROM DR001/FILE101 GROUP BY COL01 ORDER BY COL01 

Display Data
Data width . . . . . . :
Position to line . . . . .Shift to column . . . . . .
….+….1….+….2….+….3….+….4….+….5….+….6….+….7
Column 01COUNT ( * )SUM ( COL02 )
11,024 1,024
2 1,024 2,048
3 1,024 340,992
4 1,024 4,096
5 1,024 56,888,320
******** End of data ******** 

To remove simulation test data:

1. End QMirror/DR

2. Use QMirror/DR command option 3 to clear entire library object list

3. Delete library DR001 and DR002 on both source and target AS400s

Table of Contents
Scroll to Top