PRCHLO4A ;WOIFO/RLL/DAP-EXTRACT ROUTINE CLO REPORT SERVER ;12/30/10 14:58
Source file <PRCHLO4A.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDIR | ; Get directory from PRCPLO EXTRACT DIRECTORY system parameter for CLRS
|
|
| CRTWIN | ; Create CLRSxxxWFTP.TXT file to transfer file(s)
|
|
| BLDF1 | ; RLL/PRC*5.1*104 added logic to create separate FTP
; transfers (1 for each file) |
|
| CKRPTSV | ; Check for availability of report server
; Several steps need to be performed ; 1. Set up script to perform PING ; 2. Capture log file during PING ; 3. Read logfile into working global ; 4. Determine Success/Failure of PING to server ; 5. If successful, continue processing (CLRSERR=0) ; 6. If problem occurs, S CLRSERR=3 and generate message |
|
| VMSPING | ; need to PING report server to make sure it is available
|
|
| UNXPING | ;PRC*5.1*172 added logic for Full Linux
; UNIX/LINUX PING |
|
| WINPING | ; PING report server to make sure it is available
|
|
| LOG2FILE | ; Set logfile to global, add to mail message
|
|
| FTPCOM | ; Issue the FTP command after CLRSxxxWFTP.TXT file is built
; remain in CACHE during FTP Process using ; $ZF(-1) call |
|
| RUNFTPT | ; Run the FTP transfer for Windows
|
|
| DELWIN | ; Delete windows files
|
|
| DELUNX | ;PRC*5.1*172 added logic for Full Linux
; Delete the FTP files, logs , and .TXT files |
|
| DELUNX1 | ;PRC*5.1*172 added logic for Full Linux
; Delete UNIX Files |
|
| DELFTPF | ; Delete the FTP files, logs , and .TXT files
|
|
| ;Builds mail messages to a defined mail group to notify users of the
|
||
| MAILFTP | ;Builds mail messages to a defined mail group to notify users of
|
| Name | Field # of Occurrence |
|---|---|
| $$FTG^%ZISH | VMSPING+28, UNXPING+14, WINPING+11, LOG2FILE+9 |
| CLOSE^%ZISH | CRTWIN+36, CRTWIN+55, VMSPING+19, DELUNX+24 |
| OPEN^%ZISH | CRTWIN+30, CRTWIN+49, VMSPING+11, DELUNX+8 |
| USE^%ZISUTL | CRTWIN+34, CRTWIN+53, VMSPING+12, DELUNX+9 |
| $$GET1^DIQ | GETDIR+2, CRTWIN+6, VMSPING+5, UNXPING+10, WINPING+7, LOG2FILE+5, RUNFTPT+4, DELUNX+6, DELFTPF+4 |
| $$HTE^XLFDT | MAIL+6, MAILFTP+6 |
| ^XMD | MAIL+13, MAILFTP+13 |
| $$GET^XPAR | GETDIR+3, CRTWIN+8, CRTWIN+11, CRTWIN+14, CRTWIN+17, VMSPING+6, VMSPING+7, UNXPING+6, UNXPING+7, WINPING+3 , WINPING+4, LOG2FILE+4, RUNFTPT+3, DELUNX+5, DELFTPF+3, MAIL+10, MAILFTP+10 |
| $$KSP^XUPARAM | GETDIR+2, CRTWIN+6, VMSPING+5, UNXPING+10, WINPING+7, LOG2FILE+5, RUNFTPT+4, DELUNX+6, DELFTPF+4 |
| $$DECRYP^XUSRB1 | CRTWIN+16, CRTWIN+19 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
