AS400:
Normally STRDBG starts in 80x24 mode. You can change this mode to 132x27 mode with the
following environment variable:
AddEnvVar EnvVar('ILE_DEBUGGER_1') +
Value('ALLOW_WIDE_SCREEN') +
Level(*Job) Replace(*Yes)
To go back to 80x24 mode, you use:
RmvEnvVar EnvVar('ILE_DEBUGGER_1') Level(*Job)
Create two CLLE-programs, eg. DBGWIDE and ENDWIDE. Add an extra statement
MonMsg CPFA981
to the ENDWIDE - to prevent at dump, if DBGWIDE has not been initiated.
Wrap these two CLLE's into two commands with the same names, place them in QGPL
and your *On/*Off the two debug-modes.
The information originated from Karl Hanson of IBM, Rochester who works/worked on the
debuggers for IBM.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Created command IPDBGSIZE in release 4.0 to allow you to easily switch from 80 wide to 132 and back.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Normally STRDBG starts in 80x24 mode. You can change this mode to 132x27 mode with the
following environment variable:
AddEnvVar EnvVar('ILE_DEBUGGER_1') +
Value('ALLOW_WIDE_SCREEN') +
Level(*Job) Replace(*Yes)
To go back to 80x24 mode, you use:
RmvEnvVar EnvVar('ILE_DEBUGGER_1') Level(*Job)
Create two CLLE-programs, eg. DBGWIDE and ENDWIDE. Add an extra statement
MonMsg CPFA981
to the ENDWIDE - to prevent at dump, if DBGWIDE has not been initiated.
Wrap these two CLLE's into two commands with the same names, place them in QGPL
and your *On/*Off the two debug-modes.
The information originated from Karl Hanson of IBM, Rochester who works/worked on the
debuggers for IBM.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Created command IPDBGSIZE in release 4.0 to allow you to easily switch from 80 wide to 132 and back.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
No comments:
Post a Comment