Paragraph Name: ATM.NOT.POSTED

PA
* ATM TRANSACTIONS NOT POSTED FOR A SPECIFIC DATE
* WRITTEN BY BOB STUBBS, DATA MANAGEMENT SERVICES, 04 DEC 98
CLEARPROMPTS
CS
DISPLAY
DISPLAY ATM TRANSACTIONS NOT POSTED FOR A SPECIFIC DATE
DISPLAY -----------------------------------------------
DISPLAY
DISPLAY DATE ENTERED MUST BE FOR PREVIOUS BUSINESS DAY.
DISPLAY
DISPLAY ON MONDAY'S, THIS MUST BE RUN ONCE FOR FRIDAY, SATURDAY AND SUNDAY
DISPLAY
DISPLAY <<A,ENTER DESIRED DATE (I.E. 04 DEC 98)>>
REPORT.ASSIGN ATM.NOT.POSTED
SELECT NETTIP.HIST WITH SETLDATE =\
"<<ENTER DESIRED DATE (I.E. 04 DEC 98)>>"
SELECT NETTIP.HIST WITH FORCE.POST = "YES" AND WITH RQSTAMT GE "0.01"\
AND WITH POSTAMT = "0.00" REQUIRE.SELECT
SORT NETTIP.HIST BY CLIENTNO PAN CLIENTNO FULL_NAME RQSTAMT BRID LOCATION\
HEADING "ATM TRANSACTIONS NOT POSTED 'L'FOR THE SETTLEMENT DATE OF\
<<ENTER DESIRED DATE (I.E. 04 DEC 98)>>\
'L'AS OF 'D' 'L'DISTRIBUTE REPORT TO ATM MANAGER(PARAGRAPH NAME:\ ATM.NOT.POSTED) 'L'" REQUIRE.SELECT LPTR
WHICH
CS
 

Dictionaries within NETTIP.HIST

SETLDATE
D
40
D2
11R
M

FORCE.POST
I
IF FORCEPOST = "1" THEN 'YES' ELSE 'NO'
 
FORCE}POST?
5R
S

RQSTAMT
D
23
MD2,
REQ}AMT
6R
S

POSTAMT
V
SUM(EXTRACT(@RECORD,26,0,0))
MR2,
12R
M

CLIENTNO
I
OCONV(ACCT.NO, "GS1":@VM:"GL1":@VM:"GI1")
 
CLIENT
8R
M

PAN
D
1
PAN
16R
S

FULL_NAME
I
TRANS("CLIENT",CLIENTNO,1,"X"):", ":TRANS("CLIENT",CLIENTNO,7,"X")
 
MEMBER NAME
30L
S

BRID
D
34
 
 
10R
S

LOCATION - Line 002 begins with EXTRACT and ends with 37,3,0)
I
EXTRACT(@RECORD,37,1,0):', ':EXTRACT(@RECORD,37,2,0):', :EXTRACT(@RECORD,37,3,0)
 
LOCATION
45L
S

FORCEPOST
D
32
 
 
1R
M

ACCT.NO
I
EXTRACT(@RECORD,4,0,0)
ACCT #
 
11R
S

Go to Home Page