Deal Slip Routines
TEMENOS EDUCATION CENTRE
Warning: This document, is protected by copyright law and international treaties. No part of this document
may be reproduced or transmitted in any form or by any means, electronic or mechanical, for any
purpose, without the express written permission of TEMENOS HEADQUARTERS SA Unauthorized
reproduction or distribution of this presentation or any portion of it, may result in severe civil and criminal
penalties, and will be prosecuted to the maximum extent possible under applicable law.” Information in this
document is subject to change without notice
Objectives
At the end of the session you will have
Adequate knowledge to understand
Need for a deal slip routine
Steps to attach a deal slip routine to DEAL.SLIP.FORMAT application
Adequate knowledge to create
Deal slip routines
Slide 3
Introduction to Deal slip routines
Deal slip routines are similar to version validation routines
They are attached to specific fields in the deal slip
Get invoked after the data is picked up for the specific field but before
the field’s data can be displayed
Slide 4
Example 1
The application CHEQUE.ISSUE is used to issue cheque books. When
cheque books are issued to customers, the account number and the
account title need to be printed on the cheque leafs in the following
format. Pre printed stationery with the Banks name is available. Only
the Account number and the Account title needs to be printed.
Slide 5
Analysis
Slide 6
Algorithm
Open the account file
Read the record pertaining to the specific account number (this account number
will have to be supplied as an input parameter to the deal slip routine )
From the record, extract the account name and pass it back to the
DEAL.SLIP.FORMAT application through the subroutine
All deal slip routines take in one parameter
Slide 7
Solution 1
Where do we attach the subroutine ?
Application : DEAL.SLIP.FORMAT
Field : FORMAT
Name of the subroutine needs to be prefixed with an @
Slide 8
Solution 1
Write, compile and catalog
SUBROUTINE TRG.DS.CHQ.ISSUE.RTN(ACCOUNT.NAME)
* This Subroutine is written to get the ACCOUNT.NO as the incoming
* parameter and using that reads the ACCOUNT File and extracts the
* Account name for the specific number. The extracted Account name
* is passed back to the deal slip as an output parameter.
* This Routine will be attached in the DEAL.SLIP.FORMAT
* record for CHEQUE.ISSUE.
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.ACCOUNT
AC.ERR = ''
FN.AC = 'F.ACCOUNT'
F.AC = ''
CALL OPF(FN.AC,F.AC)
Y.ACCOUNT.NUMBER = ACCOUNT.NAME
CALL F.READ(FN.AC,Y.ACCOUNT.NUMBER,R.AC.REC,F.AC,AC.ERR)
ACCOUNT.NAME = R.AC.REC<AC.ACCOUNT.TITLE.1>
RETURN
END
Slide 9
Solution 1
Make an entry in the PGM.FILE with field TYPE set to ‘S’
Slide 10
Create the record in DEAL.SLIP.FORMAT
Slide 11
Attach the routine to the DEAL.SLIP.FORMAT application
Slide 12
CHEQUE.TYPE
Slide 13
CHEQUE.ISSUE
Slide 14
Output
Summary
Deal slip routines are attached to the DEAL.SLIP.FORMAT application
They take in one parameter
They need to have an entry in the PGM.FILE application with the field
TYPE set to S
Slide 16
Thank You
TEMENOS EDUCATION CENTRE
Warning: This document, is protected by copyright law and international treaties. No part of this document
may be reproduced or transmitted in any form or by any means, electronic or mechanical, for any
purpose, without the express written permission of TEMENOS HEADQUARTERS SA Unauthorized
reproduction or distribution of this presentation or any portion of it, may result in severe civil and criminal
penalties, and will be prosecuted to the maximum extent possible under applicable law.” Information in this
document is subject to change without notice
