|
I am working on coverting programs from a S/36 (CBL36) mode to a AS400 (CBL) mode. I've run into 2 things that I have not been able to figure out. Hopefully someone can help me. 1) How do you get the position the cursor is at when the enter or a function key is pressed. This is how I have it set up on the S/36. SELECT SCREEN-FILE ASSIGN TO WORKSTATION-OR001FM ORGANIZATION TRANSACTION CONTROL-AREA IS SCREEN-CONTROL-AREA. 01 SCREEN-CONTROL-AREA. 05 KEY-FUNCTION PIC 99. 88 ENTER-KEY VALUE 0. 88 CMD-KEY1 VALUE 1. 88 CMD-KEY2 VALUE 2. 88 CMD-KEY3 VALUE 3. 88 CMD-KEY4 VALUE 4. 88 CMD-KEY5 VALUE 5. 88 CMD-KEY6 VALUE 6. 88 CMD-KEY7 VALUE 7. 88 CMD-KEY8 VALUE 8. 88 CMD-KEY9 VALUE 9. 88 CMD-KEY10 VALUE 10. 88 CMD-KEY11 VALUE 11. 88 CMD-KEY12 VALUE 12. 88 CMD-KEY13 VALUE 13. 88 CMD-KEY14 VALUE 14. 88 CMD-KEY15 VALUE 15. 88 CMD-KEY16 VALUE 16. 88 CMD-KEY17 VALUE 17. 88 CMD-KEY18 VALUE 18. 88 CMD-KEY19 VALUE 19. 88 CMD-KEY20 VALUE 20. 88 CMD-KEY21 VALUE 21. 88 CMD-KEY22 VALUE 22. 88 CMD-KEY23 VALUE 23. 88 CMD-KEY24 VALUE 24. 88 CMD-PGDN VALUE 90. 88 CMD-PGUP VALUE 91. 05 TERMINAL-ID PIC X(2). 05 RESERVED PIC X(8). 05 CURSOR-ROW PIC 999. 05 CURSOR-COL PIC 999. 2) On the S/36 I have got logical files but off the physical file with multiple keys. I cannot compile these on the AS400. I am REALLY stumped on this one. What do you do to convert logical files (COBOL wise) from the system/36 to the AS400. Thanks so very much. Please send any responses to pcampbell@xxxxxxxxxxxx Phil Campbell :)
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.