I have done various searches and have not found anything that helps. The problem happens in IPCS dialog mode in Option 1 - Browse. I want to use a REXX exec (I call it SYSBXCBX) to format control blocks. SYSBXCBX is in a PDSE in the concatenation of DDname SYSEXEC. I have tested with interpreted REXX and compiled as CEXEC.
First, I specified the following in SYS1.PARMLIB(BLSCUSER): DATA STRUCTURE(SYSBDDEN) PROCEDURE(SYSBXCBX) ENVIRONMENT(IPCS) I have located the control block and used the EQUATE and STACK subcommands to create the following symbol on the stack: DDEN0001 1BF1D018. ASID(X'001E') LENGTH(X'03A6') STRUCTURE(Sysbdden) DROP with remark: SYSB0001 - K680 - DDEN (The first word of the remark allows me to associate this control block with another control block, in this case defined on the stack as symbol SYSB0001.) SYSBXCBX can be executed two different ways and both ways it has the same problem. 1. I enter the command: IPCS CBFORMAT DDEN0001 2. On the Browse screen I enter the line command F on the line for DDEN0001 SYSBXCBX displays the argument string passed to the exec which is what I expect: X Immediately, SYSBXCBX executes this subcommand: address "IPCS" "EVALSYM = X REXX(REMARK(cbremark))" I expected the cbremark variable to contain the value as shown above: SYSB0001 - K680 - DDEN Instead, cbremark contains: SYSB00ES...... ............DDEN00 X'E2E8E2C2F0F0C5E24B4B4B4B4B4B40404040404040404B4B4B4B4B4B4B4B4B4B4B4BC4C4C5D5F0F0' Three things of note: 1. Using the CBFORMAT command, the remark on the Browse screen remains the same. 2. Entering the line command F, the remark on the Browse screen is modified to: SYSB00ES .X 3. Executing SYSBXCBX directly with the command: IPCS %SYSBXCBX DDEN0001 .. or the command: IPCS %SYSBXCBX X .. the cbremark variable contains the expected value: SYSB0001 - K680 - DDEN Am I doing something wrong or is it not possible to do what I am attempting? I would appreciate any guidance. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
