Routine: DGPTF099

Information

DGPTF099 ;ALB/MTC,HIOFO/FT - TRANSMIT DELETE PTF MASTER RECORD ;5/20/15 5:19pm

Name	Comments	DBIA/ICR reference
EN	;099 Transmission [DG PTF 099 TRANSMISSION]
ASK
OK
ENQ
BUL	;
TRAN	;
LOG	;-- ptf transaction request log
LOGQ
QUIT	;
NOT
NOTRAN
INIT	;
INITQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: !,"REOPEN & TRANSMIT 099" Line Location: OK+0
Function Call: WRITE	Prompt: !!?15,"Enter <RET> to exit routine",!?10,"Enter 'Y' for YES to REOPEN & TRANSMIT",! Line Location: OK+1
Function Call: WRITE	Prompt: !,"**** 099 TRANSACTION SENT ****" Line Location: OK+6
Function Call: WRITE	Prompt: !,"RECORD HAS NOT BEEN CLOSED YET!",! Line Location: NOT+0
Function Call: WRITE	Prompt: !,"RECORD HAS NOT BEEN TRANSMITTED YET",! Line Location: NOTRAN+0
Function Call: WRITE	Prompt: !,"Cannot transmit 099 while transmitting other records",! Line Location: INIT+2