Routine: PRCHLO4A

Information

PRCHLO4A ;WOIFO/RLL/DAP-EXTRACT ROUTINE CLO REPORT SERVER ;12/30/10 14:58

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/PRC5.1104 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	;PRC5.1172 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	;PRC5.1172 added logic for Full Linux ; Delete the FTP files, logs , and .TXT files
DELUNX1	;PRC5.1172 added logic for Full Linux ; Delete UNIX Files
DELFTPF	; Delete the FTP files, logs , and .TXT files
MAIL	;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	Line Occurrences
Function Call: WRITE	Prompt: "open "_ADDR,! Line Location: BLDF1+3
Function Call: WRITE	Prompt: PRCHUSN,! Line Location: BLDF1+6
Function Call: WRITE	Prompt: PRCHPSW,! Line Location: BLDF1+8
Function Call: WRITE	Prompt: "PUT "_FILEDIR_"IFCP"_STID_FTY_PONN_".TXT",! Line Location: BLDF1+10
Function Call: WRITE	Prompt: "bye",! Line Location: BLDF1+11
Function Call: WRITE	Prompt: "$ SET VERIFY=(PROCEDURE,IMAGE)",! Line Location: VMSPING+13
Function Call: WRITE	Prompt: "$ SET DEFAULT "_FILEDIR,! Line Location: VMSPING+14
Function Call: WRITE	Prompt: "$ TCPIP",! Line Location: VMSPING+15
Function Call: WRITE	Prompt: "PING "_ADDR,! Line Location: VMSPING+16
Function Call: WRITE	Prompt: "EXIT",! Line Location: VMSPING+17
Function Call: WRITE	Prompt: "$ EXIT 3",! Line Location: VMSPING+18
Function Call: WRITE	Prompt: "#!/bin/bash",! Line Location: DELUNX+15
Function Call: WRITE	Prompt: ! Line Location: DELUNX+16
Function Call: WRITE	Prompt: "cd ",FILEDIR,! Line Location: DELUNX+17
Function Call: WRITE	Prompt: ! Line Location: DELUNX+18
Function Call: WRITE	Prompt: "rm -f CLRS*.TXT",! Line Location: DELUNX+19
Function Call: WRITE	Prompt: "rm -f IFCP*.TXT",! Line Location: DELUNX+20
Function Call: WRITE	Prompt: "rm -f CLRSUNX",! Line Location: DELUNX+21
Function Call: WRITE	Prompt: "rm -f CLRSCLNUP*",! Line Location: DELUNX+22
Function Call: WRITE	Prompt: "exit 0",! Line Location: DELUNX+23

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ