(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