Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Can some one guide me to understand the logic?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
santoshkumarmanilakkoju

New User


Joined: 24 Nov 2009
Posts: 37
Location: Don't know

PostPosted: Mon Jan 18, 2010 12:43 pm    Post subject: Can some one guide me to understand the logic?
Reply with quote

Hi,

I have to reverse track to know the way an income field 'AGINC' is populated.

But when I was tracing I have come across this code where "MODIFY" command is used.

I understand that the file "NATAGS" is modified as the FOCEXEC is executed by virtual MFD using FIXFORM.

But which file are they matching in the code to modify the fields as per the below code.

And what does the commad "DATA ON " indicate?

-*
SET MSG=ON
-*
USE CLEAR *
-*
JOIN CLEAR *
-*
EX AIUC1ALC A, F1=CSI@RSTM, N1=AEUP.NONX.AEU050NM.AEU90001(0),
F2=NAT@WK , N2=AIUP.EISX.NAT.RSTSLIIN.R&1
-RUN
-IF &&:ABORT EQ 1 GOTO UNABLEALLOC ;
-RUN
-*
EX AIUC1ALC N, F1=TXNMAJ,P1=750,S1=100,
F2=TXNREG,P2=1000,S2=250
-RUN
-IF &&:ABORT EQ 1 GOTO UNABLEALLOC ;
-RUN
-*
-*
-READ CSI@RSTM &BMONTH.I4. &FILL.A2. &EMONTH.I4.
-TYPE BMONTH --> &BMONTH EMONTH --> &EMONTH
-*
-************
-* LOAD REGIONAL DATA
-************
TABLEF FILE NAT@WK
PRINT SEG.FOACASE
-*WHERE EDIT(FOAMBU,'99$$$$$$') NE 'HM' OR 'NM' OR
-* 'SM' OR '41'
ON TABLE SAVE AS TXNREG
END
-RUN
-IF &LINES EQ 0 GOTO EMPTYFILE ;
-*
TABLEF FILE NAT@WK
PRINT FOACOVMON
ON TABLE SAVE AS TXNSAVE
END
-RUN
-*
-READ TXNSAVE &TXNMONTH.I4.
-TYPE TXNMONTH --> &TXNMONTH
-RUN
-IF &TXNMONTH EQ ' ' OR '0000' GOTO BADTXN ;
-*
-SET &EMO = EDIT (&EMONTH,'$$99') ;
-SET &EYR = EDIT (&EMONTH,'99$$') ;
-SET &TXNMO = EDIT (&TXNMONTH,'$$99') ;
-SET &TXNYR = EDIT (&TXNMONTH,'99$$') ;
-*
-SET &GDGVER = IF &TXNYR LT &EYR THEN -1
- ELSE IF (&TXNMO GE 01 AND &TXNMO LE 06)
- AND (&EMO LE 06) THEN 0
- ELSE IF (&TXNMO GE 01 AND &TXNMO LE 06)
- AND (&EMO GE 07) THEN -1
- ELSE 0 ;
-*
EX AIUC1ALC A, F1=NATAGS, N1=AIUP.EISD.NAT.AGSSWK.FOCUS(&GDGVER) -RUN
-IF &&:ABORT EQ 1 GOTO UNABLEALLOC ;
-RUN
-*
MODIFY FILE NATAGS
COMPUTE
XRPDT/YM = ;
-*
FIXFORM AGCASE/10 AGGRP/10 AGMGNT/1 X1 AGCC/4
FIXFORM X12 XRPDT/4 X7 AGSYS/2
FIXFORM AGMBU/8 AGPROD/2 AGFUND/1 AGSAREP/4 AGSVREP/4
FIXFORM AGACREP/4 AGSOFC/4 AGCSU/1 AGSVFC/4 AGCOVPR/40
FIXFORM AGRPTFLG/1 AGGENAGNT/5 AGREG/1 AGSUB/9 AGMEM/9
FIXFORM AGINC/11 X203 AGSLI/1 X7 AGSEQ/2 X17
-*
COMPUTE
AGRPDT/YYM = XRPDT ;
MATCH AGRPDT
ON MATCH CONTINUE
ON NOMATCH INCLUDE
MATCH AGCASE
ON MATCH CONTINUE
ON NOMATCH INCLUDE
MATCH AGGRP AGSEQ
ON MATCH CONTINUE
ON NOMATCH INCLUDE
MATCH AGREG AGMGNT
ON MATCH CONTINUE
ON NOMATCH INCLUDE
MATCH AGSLI
ON MATCH COMPUTE AGSUB = D.AGSUB + AGSUB ;
AGMEM = D.AGMEM + AGMEM ;
AGINC = D.AGINC + AGINC ;
ON MATCH UPDATE AGSUB AGMEM AGINC
ON NOMATCH INCLUDE
DATA ON TXNREG
LOG INVALID MSG OFF
LOG DUPL MSG OFF
END
-RUN
-*
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jan 19, 2010 6:15 am    Post subject:
Reply with quote

Hello,

You need to look in the FOCUS documentation or open a trouble call with Information Builders.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Wildcard logic in COBOL dudenithy COBOL Programming 13 Thu Sep 01, 2016 7:36 pm
No new posts Sort Logic to extract data scorp_rahul23 DFSORT/ICETOOL 13 Tue Mar 01, 2016 1:22 am
No new posts Need a logic to validate the data in ... sandeep kumar302 COBOL Programming 17 Mon Feb 01, 2016 3:30 pm
No new posts Tricky sort logic required pgopi92 DFSORT/ICETOOL 3 Mon Jan 25, 2016 3:29 pm
No new posts DB2 - CURRENT DATE + 2 YRS logic balaji81_k DB2 3 Thu Nov 26, 2015 3:07 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us