SPA SIZE ISSUE
Posted: Wed Mar 07, 2012 9:56 pm
Hi,
Problem:
In the online Screen for a Account Number it will display around 40 list of fields like FN,LN,MN,ADD,PH,MOB etc...
If we give this Acc358768543 in the screen it will display like
LN KUMAR
MN SUNDAR
FN SHYAM
now the issue is while pressing PF8 key to view the next screen
it is displaying like in the first screen 13 ,
second screen fields after 13 and
while pressing 3rd time PF8 it is displaying the first 13 fields again instead of displaying fields after 26.
The account number has totally 44 fields.
i have changed the SPA occurs to 50 times.
i have given the code changes below for the program.
IF SPA-PF8-PRESS-COUNT = 1
COMPUTE REST-OF-LINES1 = SPA-FEATURE-COUNT - 13
COMPUTE REST-OF-LINES = REST-OF-LINES1 + 14
END-IF
IF SPA-PF8-PRESS-COUNT = 2
COMPUTE REST-OF-LINES1 = SPA-FEATURE-COUNT - 26
COMPUTE REST-OF-LINES = REST-OF-LINES1 + 27
END-IF
IF SPA-PF8-PRESS-COUNT = 3
COMPUTE REST-OF-LINES1 = SPA-FEATURE-COUNT - 39
COMPUTE REST-OF-LINES = REST-OF-LINES1 + 40
END-IF
IF SPA-PF8-PRESS-COUNT = 1
PERFORM 37500-MOVE-SPA-TO-IO-AREA
VARYING SUB1 FROM 14 BY 1
UNTIL SUB1 >= REST-OF-LINES
OR SUB1 > 29
OR SUB1 > 26
END-IF
IF SPA-PF8-PRESS-COUNT = 2
PERFORM 37500-MOVE-SPA-TO-IO-AREA
VARYING SUB1 FROM 27 BY 1
UNTIL SUB1 >= REST-OF-LINES
OR SUB1 > 30
MOVE ZERO TO SPA-PF8-PRESS-COUNT
IF SPA-PF8-PRESS-COUNT = 3
PERFORM 37500-MOVE-SPA-TO-IO-AREA
VARYING SUB1 FROM 40 BY 1
UNTIL SUB1 >= REST-OF-LINES
OR SUB1 > 34
MOVE ZERO TO SPA-PF8-PRESS-COUNT
Please guide me to solve the issue.
Thanks
Siva
Problem:
In the online Screen for a Account Number it will display around 40 list of fields like FN,LN,MN,ADD,PH,MOB etc...
If we give this Acc358768543 in the screen it will display like
LN KUMAR
MN SUNDAR
FN SHYAM
now the issue is while pressing PF8 key to view the next screen
it is displaying like in the first screen 13 ,
second screen fields after 13 and
while pressing 3rd time PF8 it is displaying the first 13 fields again instead of displaying fields after 26.
The account number has totally 44 fields.
i have changed the SPA occurs to 50 times.
i have given the code changes below for the program.
IF SPA-PF8-PRESS-COUNT = 1
COMPUTE REST-OF-LINES1 = SPA-FEATURE-COUNT - 13
COMPUTE REST-OF-LINES = REST-OF-LINES1 + 14
END-IF
IF SPA-PF8-PRESS-COUNT = 2
COMPUTE REST-OF-LINES1 = SPA-FEATURE-COUNT - 26
COMPUTE REST-OF-LINES = REST-OF-LINES1 + 27
END-IF
IF SPA-PF8-PRESS-COUNT = 3
COMPUTE REST-OF-LINES1 = SPA-FEATURE-COUNT - 39
COMPUTE REST-OF-LINES = REST-OF-LINES1 + 40
END-IF
IF SPA-PF8-PRESS-COUNT = 1
PERFORM 37500-MOVE-SPA-TO-IO-AREA
VARYING SUB1 FROM 14 BY 1
UNTIL SUB1 >= REST-OF-LINES
OR SUB1 > 29
OR SUB1 > 26
END-IF
IF SPA-PF8-PRESS-COUNT = 2
PERFORM 37500-MOVE-SPA-TO-IO-AREA
VARYING SUB1 FROM 27 BY 1
UNTIL SUB1 >= REST-OF-LINES
OR SUB1 > 30
MOVE ZERO TO SPA-PF8-PRESS-COUNT
IF SPA-PF8-PRESS-COUNT = 3
PERFORM 37500-MOVE-SPA-TO-IO-AREA
VARYING SUB1 FROM 40 BY 1
UNTIL SUB1 >= REST-OF-LINES
OR SUB1 > 34
MOVE ZERO TO SPA-PF8-PRESS-COUNT
Please guide me to solve the issue.
Thanks
Siva