EXECPROCEAGRTPRC Compiled REXX 3.0 14 Aug 2002 00:52:21 CMS REXXC370 4.00 27 Oct 1994 LVL PN83402 CHKPSF SCGI U1  ٰ}^&uj&֏& j &Q0&S0i00&y}銏j 醠i h-0{\0 &&& q}q \\}\   - % d  MDq "  }}\%qhQ*Q &}y i ȣ&kO80AM\0R P}0A\0{Q0A\0{P0A\0{0{\0@Q@0{\0 i d0{\00{\0 i dN0{\0 h0{\00{\00{4\0 i ȴ0{\0ϵPY0A\0Ǡ i ȣ0{\0آ<0A\0Q}O0A\0{Q֠Ou0A\0{R* OH0A\0{0{\0N0{\0؆\N-0{\0N%0{\0Ǡ i d%N0{\0 h0{\00{\00{4\0P has experienced a serious error. If the error persists, contact  in line  Running on .UTIL T.1-->-1: ">Error Report form. AbendACCESS BADCALLPIPE CMS CHKPSF | > CHKPSF TXTCGI CHARCOMMAND CP MSG HARRYE ENGINEERINGFDRNEW.FDRSTATSFDRWEB:FDRWEB:FDRNEW.EWEB.MARIST.LITNNUMO OUTPUT ''OUTPUT' '
' address command 'ACCESS' fp||fs'.UTIL T''CALLPIPE CMS CHKPSF | > CHKPSF TXT' ofm'OUTPUT' 'Command completed''OUTPUT' '
' /* suffix */ e2 = time('R')'REXX FDRCLEAN' cmdstat1 e1 e2'OUTPUT ' exit 0 getvar: arg sub . v = symbol('form.'sub'.1') If v = 'VAR' then return form.sub.1 else return '' Error: errrc = rc signal off error 'OUTPUT' 'Error' , 'Sorry, ' cgi ' has' , 'experienced a serious error.' , 'If the error persists, contact ' , 'Error Report' errsigl = sigl signal errcleanupSyntax: errrc = rc signal off syntax 'OUTPUT' 'Error' , 'Sorry, ' cgi ' has' , 'experienced a serious syntax error.' , 'If the error persists, contact ' , 'Error Report' errsigl = sigl errcleanup: signal off error signal off syntax errtxt = errortext(errrc) srcline = sourceline(errsigl) 'OUTPUT' "" "OUTPUT" '' exit 0 DumpIt:fn = cgioft = 'REXXVARS'ofm = 'W'ft = 'CGI'userid = userid()date = date('S')time = time()Address Command 'CP MSG HARRY' cgi 'Abend'Address Command 'PIPE LITERAL' fn ft 'Variables:', '| >' fn oft ofmAddress Command 'PIPE REXXVARS', '| DROP FIRST 1', '| SPECS WORD 2-*', '| join /=/' , '| preface Literal ' , '| >>' fn oft ofmexitm   - % 0 } Q&* h @q m Um  y {4  - % 4* * u{MU4*{MY      % m u  D M    *   Y      M &d{}\0@-q@@} }&*- *ص m*{YMYYܵYQ<-Qȵ h 4 Q  Dm