Thursday, 11 October 2007

Dynamic XFL - (2)



OD9044029 921012 SAL XFL logic -------
EERSFL
EERKFL EERKFP EERKPT
EERXPT
first XFL point
second XFL point
OD9044030 921012 SAL programs changed for OD 90/44 details -------
KNACACT
XFL() routine
KNAE
KFP check
LVLRULE
KNFC
KFP check
LVLRULE
XFL() routine included (Redundancy)
OD9044031 921012 SAL line by line explanation -------

OD9044032 921012 SAL problems -------
_XFL manipulation through SFL, KFL, KFP, KPT.
Lack of place in the current SDB. Use of XFT.
Increases in the processing time inspite of the
improvements on the memory size.
_TEST macro effects the style of programming fatally
Increases the maintenability, reengineerability of
the system.
_FDM1-FDM2 problem KNFE, KNFD. Which may cause effect
to any XFL point which is also a PP.
_What happens on other XFL points ?
Reusability.
_Redundancy considerations.
OD9044034 921023 SAL progress report of OCT -------
Work still continues on OD90/44. New requirements are
added in a small and incomplete test with the operations.
Some problems are encountered during the cleaning process.
The development process is slowed down due to the lack
of an automatic data input and automatic testing tool.
OD9044035 921023 SAL progress report of OCT -------
NOTES
260 CFL PEN message 260
310 reclear on TID at ERL PEN message 260 stilllllllllll
OD9044036 921120 SAL stilllllll XFL business
1. Prepare the documentation
1.1. KNAE related
1.2. KNACACT related
1.3. KNFC new changes + group explanations (keep the lines)
2. Move KNFC to the VORELLE
2.1. %INCLUDE EGFD
%INCLUDE QCTRPRE
%INCLUDE XFLTAB
2.2. DCL ( #REJXFL, #XPT, #XCONT
2.3. after KNFC01: proc;
PEGFD = ADDR(JKPEGFD)
2.4. LVLRULE
2.5. OD92/34 LVLRULE:
Vertical entry allow input
3. Test the single XFL case
4.+Clean KNAE (move XPT logic out into a subroutine)
5.+Allow CFL>XFL and KFLXFL and KFL produced :
260 0RDG 410 0RDG
ERL 310 ERL
SULUS SULUS
310 FUL 280 310 FUL 280
280 LAU 280 LAU
It may be related to if eerkfl(#kptno) statements, in
#KPTNO = 256 cases (wrong addressing problem).
It may be vertical entry related.
+6.4. JFSCFL, JFSKFL, #KFL, #CFL values have to be checked for
UIRCFL reclearences.
+6.5. PEN message problems related to #KFL and #CFL values.
PEN message 260 PEN message 260
7.+L modifications problem
+It is not L modification but it is CFM related.
+If XFL and XFP is erased and CFM is asked with a warning
+message, and a new CFL or KFL which is higher than XFL
+is entered, then XFL and XFP should be restored on the
+KDS screen. This is not done. But it is only on the
+screen and strips are OK as well as the TID.
+ESTXFL and ESTXFP should be controlled and set equal to
+the EERSFL values. May be there should be a warning message
+also.
OD9044037 921210 SAL progress report of NOV -------
Work on OD9044 continues. The requirements have been
finalised with operations, the fine-tuning, cleaning and
documenting of the programs continue. A considerable
amount of time was spent for courses.
OD9044038 930121 SAL Special departure case
OD9044039 930127 SAL Special departure case whre is ERSNLRS set ?
OD9044033 921023 SAL link modules -------
MPNW1 INCLUDE OBJECT(MKNAF)
MPNX1 INCLUDE OBJECT(MKNFC)
MPNZ3 INCLUDE OBJECT(MKNACACT)
MPNZ4 INCLUDE OBJECT(MKNAF)
INCLUDE OBJECT(MKNAE) 00120001
RKNNW INCLUDE OBJECT(RKNAF)
RKNNX INCLUDE OBJECT(RKNFC)
RKNNZ INCLUDE OBJECT(RKNACACT)
INCLUDE OBJECT(RKNAF) 00640002
INCLUDE OBJECT(RKNAE) 00660002

OD9044040 930209 SAL OD9044 compare KNFC after VORELLE changes are made

I - /********************************************************************/ 16452882 01821
I - KNFC_LVL_OD9044_KFL:PROC; 16452982 01822
I - 16453082 01823
I - IF TEST(EERXPT(#KPTNO)) 16453182 01824
I - THEN 16453282 01825
I - DO; /* IF THE KFL RECLEAR IS ON DXP */ 16453382 01826
I - CALL KNFC_LVL_OD9044_KFL_ON_DXP; 16453482 01827
I - END; 16453582 01828
I - ELSE 16453682 01829
I - DO; /* IF THE KFL RECLEAR IS BEFORE DXP */ 16453782 01830
I - CALL KNFC_LVL_OD9044_KFL_BFR_DXP; 16453882 01831
I - END; 16453982 01832
I - END KNFC_LVL_OD9044_KFL; 16454082 01833
I - /********************************************************************/ 16454182 01834
I - KNFC_LVL_OD9044_KFL_ON_DXP:PROC; 16454282 01835
I - MCRTES(PUT SKIP FILE (PRTPRO) EDIT('KFL CHANGE ON DXP')(A);) 16454385 01836
I - 16454482 01837
I - IF #CFL > EERSFL(#I) 16454582 01838
I - THEN /* CURRENT CFL IS HIGHER THEN XFL */ 16454682 01839
I - DO; 16454782 01840
I - 16454882 01841
I - IF #KFL > EERSFL(#I) 16454982 01842
I - THEN 16455082 01843
I - DO; /* CURRENT CFL > XFL & KFL > SFL */ 16455182 01844
I - CALL KNFC_LVL_OD9044_KFL_ON_DXP_HGH; 16455282 01845
I - END; 16455382 01846
I - ELSE 16455482 01847
I - DO; /* CURRENT CFL > SFL & KFL <> XFL & KFL > SFL */ 16455782 01850
I - END; /* END OF CFL > XFL */ 16455882 01851
I - ELSE 16455982 01852
I - DO; /* IF CURRENT CFL <> EERSFL(#I) 16456282 01855
I - THEN 16456382 01856
I - DO; /* DO NOTHING IF CURRENT CFLSFL */ 16456482 01857
I - EERKFL(#I) = 0; /* ERASE XFL OF KNACXFL */ 16456582 01858
I - EERSFL(#I) = 0; 16456682 01859
I - CLEAR(EERKPT(#I)); 16456782 01860
I - CALL KNFC_LVL_OD9044_KFL_ON_DXP_HGH; 16456882 01861
I - END; 16456982 01862
I - ELSE 16457082 01863
I - DO; /* CURRENT CFL