charlie_k
asked on
System 36 to native AS400 conversion. USRDSPMGT in display files very slow.
I am working on a project to convert a system 36 application to native AS400. For the first phase we are converting System 36 files to DDS, OCL procedures to CL and RPG36 to RPT.
The converted display files contain the USRDSPMGT keyword to handle the system 36 style lists (which at a later date will be replaced by subfiles). The lists display correctly but are built very slowly, one line at a time, with the each screen taking 4 or 5 seconds to complete. If any valid command key (roll up, roll down, enter etc.) is pressed while the list is being built the remainder of the list displays almost immediately (i.e. a single press of a function key lists slowly while a double press lists quickly).
How can I force the whole list to appear quickly ona single key press?
Below are what appear to be the relevant lines from the program and DDS.
The converted display files contain the USRDSPMGT keyword to handle the system 36 style lists (which at a later date will be replaced by subfiles). The lists display correctly but are built very slowly, one line at a time, with the each screen taking 4 or 5 seconds to complete. If any valid command key (roll up, roll down, enter etc.) is pressed while the list is being built the remainder of the list displays almost immediately (i.e. a single press of a function key lists slowly while a double press lists quickly).
How can I force the whole list to appear quickly ona single key press?
Below are what appear to be the relevant lines from the program and DDS.
FSRCOSLFMCP F 1280 WORKSTN
F KSLN LINE
F KID WSID
F KINFDS INFDS
F KINFSR INFSR
...
ISRCOSLFMNS 99 1 C
I 1 1 WKSCID
I NS 01 1 C1
I* FORMAT-F1
I 1 1 WKSCID
I 2 11 WKNAME
I 12 17 WKCONO
I 18 220WKBPPF
I NS 02 1 C2
I* FORMAT-F2
...
C EXCPTCMPHDR
C/SPACE
C* SEARCH LOOP AND DISPLAY OF COMPANY INFO
C LOOPCN TAG
C/SPACE
C* READ RECORDS
C SETOF 40
C READ SYSCTN 40
C* 'READ ' DEBUGPRINTDB
C/SPACE
C* RECORD FOUND
C N40 DO
C SCSTFL IFEQ 'D'
C* 'SCCONOD' DEBUGPRINTDB SCCONO
C GOTO LOOPCN
C END
...
C* LOAD THE CO ID INTO THE ARRAY
C ADD 1 L
C ADD 1 LINE
C L IFEQ 1
C ADD 1 S#
C MOVELSCCONM CR,S#
C MOVE SCCONO CR,S#
C END
C MOVE SCCONO CO,L
C/SPACE
C* NOW GET THE INFO FOR DISPALY
C SCCONO CHAINSYSCTL 40
C* DISPLAY A RECORD
C* 'CMPDET ' DEBUGPRINTDB SCCONO
C EXCPTCMPDET
C/SPACE
C* INCREASE VARIABLE NO BY 1 AND READ NEXT
C L IFLT 18
C GOTO LOOPCN
C END
...
OSRCOSLFME CMPHDR
O K2 'F1'
O SVNAME 10
O 50 WKNAME 20
O 50 WKCONO 26
O 50 WKBPPFZ 31
O E CMPDET
O K2 'FV'
O SCCONO 6
O SCCONM 67
O SCXCHG 71
A USRDSPMGT INDARA
A R F1
A DSPMOD(*DS3)
A PRINT
A INVITE
A SLNO(01)
A CLRL(*ALL)
A ALWROL
A CF02 CF07
A ROLLUP ROLLDOWN
A HELP
...
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Still not resolved, but we will tackle this problem in a later stage of the project when we move to externally defined files.
How many interactive programs do you have to convert and how much time do you have for:
- Conversion?
- Testing?
- Documenting?
What kind of programs does it contain?
What is your RPG experience?
Murphey,