Routine: AIBTCFLM

Information

AIBTCFLM ;IHS/AAO/MFD;FRONT-END TELECOMM FILE GATHER BEFORE MERGE/CONVERT [ 02/01/89 9:08 AM ]

Source file <AIBTCFLM.m>

Package	Total	Call Graph
IBM DDPS Record Consolidation	2	^AIBCVT BEGIN^AIBMRG
Kernel	1	^%ZIS

Name	Comments	DBIA/ICR reference
ALLDONE
OPENHFS
GFILES
CHK
DOEM
WHATPRT
SETCOD
IBMJOB	;USE THIS ENTRY POINT TO CREATE TELECOM FILE FOR MAINFRAME
INTRO
CHKHFS	;

Name	Line Occurrences
Function Call: READ	Prompt: "Enter Global Prefix (i.e. AGTX) for merge: " Formatting: !! Timeout: DTIME Variable: AIBGLPRE Line Location: INTRO+1
Function Call: WRITE	Prompt: !!,"GLOBAL MERGE AND CONVERSION FOR "_AIBGLPRE_"DATA" Line Location: INTRO+2
Function Call: READ	Timeout: DTIME Line Location: GFILES+1
Function Call: WRITE	Prompt: ! Line Location: SETCOD+1
Function Call: WRITE	Prompt: ! Line Location: SETCOD+2
Function Call: WRITE	Prompt: ?4,AIBPFN_CODENO(I) Line Location: SETCOD+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: SETCOD+3
Function Call: WRITE	Prompt: !!,"Are these the files you wish to extract from? ('^' to re-enter) (Y/N) Y// " Line Location: SETCOD+3
Function Call: WRITE	Prompt: !,?5,"Open failed on device 51 for file",AIBFN,*7,!!,?30,"TRY AGAIN" Line Location: OPENHFS+1
Routine Call	%ZIS Line Location: WHATPRT

Name	Line Occurrences (* Changed, ! Killed)
^AGDMGLOB	WHATPRT+2!
^AGELGLOB	WHATPRT+2!
^AGHAGLOB	WHATPRT+2!

Name	Line Occurrences
ALLDONE	INTRO+1, GFILES+1, SETCOD+3, WHATPRT, DOEM+3
CHKHFS	CHK, DOEM
GFILES	GFILES+1, SETCOD+3, CHK
INTRO	AIBTCFLM+8

Name	Field # of Occurrence
>> %IS	WHATPRT*
>> %IS("A"	WHATPRT*
>> %IS("B"	WHATPRT*
AIBCC	GFILES+2, SETCOD, SETCOD+1*, SETCOD+2, CHK, DOEM, ALLDONE!
AIBDEV	GFILES*, DOEM+1!, OPENHFS, OPENHFS+1, OPENHFS+3, ALLDONE!
AIBFFN	INTRO*, ALLDONE!
AIBFILE	AIBTCFLM+8, IBMJOB+1, ALLDONE!
AIBFN	DOEM+1!, CHKHFS+1*, OPENHFS+1, ALLDONE!
>> AIBGBLP	DOEM+2*
AIBGLOB	WHATPRT+1*!
AIBGLPRE	INTRO+1*, INTRO+2, GFILES, WHATPRT+1, WHATPRT+2, DOEM+2!, ALLDONE!
AIBOK	WHATPRT+1*, OPENHFS+2, ALLDONE!
>> AIBPDV	WHATPRT*
AIBPFN	GFILES*, SETCOD+2, DOEM+1!, CHKHFS+1, ALLDONE!
CODENO	GFILES!, DOEM+1!, ALLDONE!
CODENO(	SETCOD*, SETCOD+2, CHKHFS+1
CODENOS	GFILES+1*, SETCOD, DOEM+1!, ALLDONE!
DTIME	INTRO*, INTRO+1, GFILES+1, SETCOD+3
I	GFILES!, SETCOD+2, CHK, DOEM*, DOEM+1!, CHKHFS+1, ALLDONE!
IO	WHATPRT*
N	SETCOD*, SETCOD+1!
X	SETCOD+3*, WHATPRT+1!
ZA	GFILES!, CHK, WHATPRT+1!, DOEM+1!, OPENHFS+1*, ALLDONE!