Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRCHLO4A

Package: IFCAP

Routine: PRCHLO4A


Information

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

Source Information

Source file <PRCHLO4A.m>

Entry Points

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
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

Interaction Calls

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 CLRS*UNX*",!
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call