@TESTV1.0 4-NOV-2021 10:12 VSI C V7.4-002 X8 $READONLY$i $CODE$ $LITERAL$>$LINK$@$BSS$$DATA$0J TESTCONDITION0J  TESTMATCH0JP  TESTREGEX0J0TESTTIME d6=4,!4UL-!2ZL-!2ZL !2ZL:!2ZL:!2ZL.!2ZL = #~^^~ GG7 G{#.J2//@.J/R@ӠC)(" B#"!R .PJJPBF///4G//c.HB4G"PbStJgJ/@Zk///8BG4G@b@Zk CGG]]} 0#/k///#4G(^@[~0^8~@HP޴X`hGGGGHb#"@ZkD@BG""HbGtG@/@Zkx""1 $,A0H'HA1@! D i/D.B4Gd"bRSJGJ/@Zk^%xB$" .RPJJPBFR /d.B4G"bStJgJ/@ZkFB" ="TGbGGx@Zk,H( //hG"/ '.Q2J'JQ3B1 F/ //.B4G"bTJJ/@Zk'," =A0H'H! 1D4 DG. GJ_DB@B " B" GG""GHbDG@ZkGx/BTG"="b @Zkx -HII@@D %/$,B4G"bA0H'H/@Zkx" -!HIIA@! D /.B4G$"bPJJ/@Zkx" -!HIIA@! D /.B4G$"bPJJ/@Zkx" -!HIIA@! D /.B4G$"bPJJ/@Zk,!Šx""HD1/ $,A0H'HA1@! D/ //D.B4Gd"bRSJGJ/@Zkx" ,!GHHA@! D /.B4G$"bPJJ/@Zkx" ,!GHHA@! D //.B4GbPJJ@Zk/x¤ -ƠHIIF@ƠD v//$,B4G "bA0H'H/@Zkj,!,$.$, ".d.D""EHGH."HH$/d_#E@A0HQ2J @'H'J]@A!@StJQ1Be@UJgJ!@E@J1BE@aBBWJa!@@ 1" J @A!@Y$KWB%BA?@'KBRJ`!@! @Ea# `G@pB2v@JPB@B` #DVBG B"GD @ BGHb0"uFuFGBE>G@ZkGL/D@BGp""HbTG@/@ZkG? }TG=`B(vHRHhbR`JRJ3v`J1v J" U"G4vJ~>GGG>@Zk,D"b#GH( DG/&@ӧCPBGGTGXb@ZkGDà@B! B"""GGDGGG@Hb@ZkGG(]0]8}@HPݤX`hp#k/h{#TG~^[s^~ (=`B0޴8@GGGGG`8;"b@ZkD8BGH""G@bGG@/@Zk,E"GGb#H DY@Hd,dHB /.(B4G$"0bGPJJ@Zk%,(B"G4G0bA0H'H@Zk`DG($,$H/ ///&.(B4G"0b&J c.StJgJ@Zk&,(BG"4G0bA0H'H/@ZkD#,c  #H/?&.&J/D. DJ_G//G]]} (0ݤ8@P#k/G//{#PTG^~@[s ^(~08=`B@GGG;"^`Hb/@Zk` bGO/ 0B4G8b"@ZkGE/// btG`B=hb$ SG /@ZkBG]"G"Gb@ZkBp""]"btGDpY`@`/@Zk0BG4G8b@ZkGG4G}"BGb@Zk 0B 4G8b"@ZkG///e@G] ](}08@P#k4G DECC$ISDIGIT4b# DECC$ISDIGIT4@ DECC$ISDIGIT4G DECC$ATOI4b# DECC$ATOI4@ DECC$ATOI4<G SYS$GETTIM4tb# SYS$GETTIM4@ SYS$GETTIM4G WASDOCINSIGHT4b# WASDOCINSIGHT 4@ WASDOCINSIGHT4G DECC$ISDIGIT4b# DECC$ISDIGIT4@ DECC$ISDIGIT4TGt DECC$ISDIGIT4`b# DECC$ISDIGIT4p@t DECC$ISDIGIT4xGLIB$DAY_OF_WEEK4b#LIB$DAY_OF_WEEK4@LIB$DAY_OF_WEEK4G DECC$ISDIGIT4b# DECC$ISDIGIT4@ DECC$ISDIGIT4PG WASDOCINSIGHT4tb# WASDOCINSIGHT4@ WASDOCINSIGHT4G SYS$NUMTIM4b# SYS$NUMTIM4@ SYS$NUMTIM4G DECC$ISDIGIT4b# DECC$ISDIGIT4@ DECC$ISDIGIT4DGd DECC$ISDIGIT4Pb# DECC$ISDIGIT4`@d DECC$ISDIGIT4G DECC$ISDIGIT4b# DECC$ISDIGIT4@ DECC$ISDIGIT4G$ DECC$ISDIGIT4b# DECC$ISDIGIT4 @$ DECC$ISDIGIT4G DECC$ISDIGIT4b# DECC$ISDIGIT4@ DECC$ISDIGIT4G DECC$ISDIGIT4b# DECC$ISDIGIT4@ DECC$ISDIGIT4DG\ DECC$ISDIGIT4Lb# DECC$ISDIGIT4X@\ DECC$ISDIGIT4G DECC$ISDIGIT4b# DECC$ISDIGIT4@ DECC$ISDIGIT4G4 WASDOCINSIGHT4b# WASDOCINSIGHT40@4 WASDOCINSIGHT4DGh WASDOCINSIGHT4Pb# WASDOCINSIGHT4d@h WASDOCINSIGHT,GSYS$FAO,b#SYS$FAO,@SYS$FAO4 G( DECC$MATCH_WILD4 b#DECC$MATCH_WILD4$ @( DECC$MATCH_WILD40 Gh WASDOCINSIGHT4\ b# WASDOCINSIGHT4d @h WASDOCINSIGHT4  G DECC$TXFPRINTF4  b#DECC$TXFPRINTF4  @ DECC$TXFPRINTF4 G8 WASDOCINSIGHT4 b# WASDOCINSIGHT44 @8 WASDOCINSIGHT4 t G DECC$TOLOWER4 b# DECC$TOLOWER4  @ DECC$TOLOWER4  G DECC$TOLOWER4 b# DECC$TOLOWER4  @ DECC$TOLOWER4  G DECC$TOLOWER4 b# DECC$TOLOWER4  @ DECC$TOLOWER4  G4 DECC$TOLOWER4 b# DECC$TOLOWER4 0 @4 DECC$TOLOWER4  G$ DECC$TXFPRINTF4  b#PDECC$TXFPRINTF4  @$ DECC$TXFPRINTF ,D GX REGFREE,L b#PREGFREE,T @X REGFREE, | G REGCOMP,  b#PREGCOMP,  @ REGCOMP4 G REGERROR4 b#PREGERROR4 @ REGERROR4 G WASDOCINSIGHT4 b#P WASDOCINSIGHT4 @ WASDOCINSIGHT, G REGFREE, b#PREGFREE, @ REGFREE,$ G< REGEXEC,0 b#PREGEXEC,8 @< REGEXEC,@ GX REGFREE,L b#PREGFREE,T @X REGFREE 5=%s%d %u <= %u <= %u  WASDOCINSIGHTREGERRORREGEXEC7DBUG=testRegex() H;=02 ;=P<< ;REGFREE DECC$TXFPRINTF7DECC$GA_STDOUT REGCOMP=%s=02 ;=PD  DECC$TOLOWER=testMatch() =%s %s=02;=0 7DECC$$GA___CTYPET7DECC$$GL___CTYPEAP DECC$ATOI DECC$ISDIGIT SYS$NUMTIM=%s%d %s '%s' LIB$DAY_OF_WEEK=%s%d %s == %u= ✗=0(20;=(p8 ✓; SYS$GETTIM DECC$MATCH_WILDSYS$FAO=FALSE times? h= #4=(4 :=*"!TESTVSI C V7.4-002 = 44= testCondition4=B:9 =y =y Ey Ky KyP Ey , = 0 \= 044=testTime04= jy jy jy jy jy y y y y y y y y y$ y y y$ y y y y$ y y y$ y y y y y y$ y y y y y y y y y y y y y y y y y y y y y y y y y y  y y y y y y y y y yc y y y y y y y y y y y4 = p =  44= testMatch 4= y y y y y y y y@ y y y y0 y =   =  4P4= testRegex 4=~ z y y y y y z z "z -z$ =  =   DECC$ATOIDECC$GA_STDOUTDECC$TXFPRINTF DECC$ISDIGIT DECC$TOLOWER DECC$$GA___CTYPET DECC$$GL___CTYPEALIB$DAY_OF_WEEK WASDOCINSIGHTREGCOMPREGEXECREGERRORREGFREESYS$FAO SYS$GETTIM SYS$NUMTIMDECC$MATCH_WILDDBUG C$AT