I am attempting to incorporate a FUSREXX in my code. I am working with FOCUS 7.2 on an OS/390. At this time, I have successfully invoked the REXX code, but the results I am getting back are not as expected. I have written a simple REXX to accept 1 arg and return the same as follows:

000100 /* PROG1 FUSREXX */
000110 ARG A
000110 RETURN A

I then assign this value to a column in my FOCUS report in the following fashion:

000047 DEFINE FILE WSHISTN
000048 STATUS/A2 = LC1 | LC2;
000049 REVTIME_A0/A12 = EDIT(CLOCKTIME,'999999999999$$$$');
000050 REVTIME_C1/A12 = EDIT(CLOCKTIME,'999999999999$$$$');
000051 TEST_STRING/A6 = '010395';
000052 FILLER/A6 = PROG1(6,TEST_STRING,6,FILLER);
000053 END

I managed to hit send before I was done on my last. Here is my problem restated:

I am attempting to incorporate a FUSREXX in my code. I am working with FOCUS 7.2 on an OS/390. At this time, I have successfully invoked the REXX code, but the results I am getting back are not as expected. I have written a simple REXX to accept 1 arg and return the same as follows:

000100 /* PROG1 FUSREXX */
000110 ARG A
000110 RETURN A

I then assign this value to a column in my FOCUS report in the following fashion:

000047 DEFINE FILE WSHISTN
000048 STATUS/A2 = LC1 | LC2;
000049 REVTIME_A0/A12 = EDIT(CLOCKTIME,'999999999999$$$$');
000050 REVTIME_C1/A12 = EDIT(CLOCKTIME,'999999999999$$$$');
000051 TEST_STRING/A6 = '010395';
000052 FILLER/A6 = PROG1(6,TEST_STRING,6,FILLER);
000053 END

I then incorporate the field into my table as
follows:

000056 TABLE FILE WSHISTN
000057 PRINT REVTIME_C1
000058 STATUS
000059 FUN
000060 FILLER
000061 BY ID
000062 WHERE FUN EQ '02'
000063 WHERE STATUS EQ 'C1'
000064 ON TABLE HOLD AS TIEUP1 FORMAT ALPHA
000065 END

My problem is that FILLER/A6 is appearing in the data file as '010 '. I have run the REXX separately and verified that it is providing the correct response. I know that the FUSREXX is being called and that it is providing an answer. I have reviewed the documentation many times over, and I am sure that I have provided the correct syntax for the call. So, I'm not too sure what it is that I have neglected to account for that would cause the result to be truncated.

Thanks in advance for any assistance.

Jrusse:

Spoke to our FocWizard here...his questions:

I tried the routine here, and it worked, so my FIRST question is "what results ARE you getting back?".

Can you include the request, as well as sample output?

Thanks,

MMc

Also, what release are you on (if you're not sure, do a '? REL' from the FOCUS prompt).