Routine: APCCONVT

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: PR="" Line Location: APCCONVT+2
Function Call: WRITE	Prompt: !,"GLOBAL DOES NOT EXIST" Line Location: RGBL+2
Function Call: WRITE	Prompt: !!,"HEADER RECORD MISSING" Line Location: RGBL+4
Function Call: WRITE	Prompt: !,"TAPE UNIT 48 NOT ON-LINE, READY DEVICE" Line Location: RGBL+6
Function Call: WRITE	Prompt: *5 Line Location: RGBL+7
Function Call: WRITE	Prompt: !!,"TAPE NEEDS WRITE RING JOB ABORTED" Line Location: RGBL+8
Function Call: WRITE	Prompt: #,?20,"A P C C O N V E R S I O N E R R O R L I S T" Line Location: RGBL+9
Function Call: WRITE	Prompt: !,"PIECE ",I+1," IS IN ERROR ",X Line Location: LOOKUP+0
Function Call: WRITE	Prompt: OUTPUT Line Location: EOD+1
Function Call: WRITE	Prompt: !,CNTOUT Line Location: EOD+1
Function Call: WRITE	Prompt: !,"RECORDS INPUT ",CNTIN Line Location: EOJ+1
Function Call: WRITE	Prompt: !,"RECORDS OUTPUT ",CNTOUT Line Location: EOJ+2
Function Call: WRITE	Prompt: !,"RECORDS REJECTED ",CNTERR Line Location: EOJ+3
Function Call: WRITE	Prompt: # Line Location: EOJ+4
Function Call: WRITE	Prompt: *3 Line Location: EOJ+5
Function Call: WRITE	Prompt: *5 Line Location: EOJ+5
Function Call: WRITE	Prompt: !!,"END OF PROCESSING" Line Location: EOJ+6

Name	Comments	DBIA/ICR reference
SCAN	;1ST FIELD IS POSITION IN OUTPUT RECORD 2ND IS INPUT FIELD LENGTH
READ
EOJ	;END OF JOB PROCESSING
EOD
LOOKUP
RGBL