IT Answers » SEU

Colored CL Source

Farmboy69 — Mon, 13 Dec 2010 22:00:43 +0000

How do you insert a hexidecimal value in a CL program to change the color of the source using SEU?

SEU user defined Exit program problem

Cheekychimp — Tue, 19 Oct 2010 12:10:25 +0000

I have written a user exit program that when you press the F7 it will compile your program source interactively. However if I then subsequently add or delete a line of code the SEU program crashes and I get sent a “Error found on STRSEU command” and when I look into the joblog I see the following errors: Tried to refer to all or part of an object that no longer exists. Application error. MCH3402 unmonitored by QRNS4SEU at statement 0000000033, instruction X’0000′. The requested heap space operation is invalid. The pointer parameter passed to free or realloc is not valid. However; if I change my F7 to compile my source in batch there is no error. I am returning a value of 1 for outrecs and a ’4′ for the return code when returning back to SEU. I have tried other return codes like 1,2 and 3 but with the same result. If I change the F7 to execute any other common as400 command I do not have any problems.

Problem in SEU User Defined Command Processing Program

mjaybharat — Sun, 04 Apr 2010 07:41:45 +0000

Hi, I am facing a unique problem while executing a user defined line command processor pgm for SEU. On F8, the program again executes STRSEU command to open another SEU source. On pressing F3 on the second source, deletes the QTEMP/QSUSPC user space object. Due to this the pointer values are lost when control returns back to the program resulting into error: Statement/Instruction . . . . . . . . . : /041E Program . . . . . . . . . . . . . . . . : QSUUSRLC Recursion level . . . . . . . . . . . . : 1 Tried to refer to all or part of an object that no longer exists. There are two ways to prevent this: 1) Prevent the deletion of QTEMP/QSUSPC when exiting from the second SEU source 2) Backup and Restore the Userspace after exiting from the second SEU source but at the same memory location(which is again a challenge). Wanted to know if any of the two ways can be implemented and if yes then how? The source Code for trial is as below:

h dftactgrp(*no) actgrp(*NEW) indent(*none) //SEU InPut D SEUInput DS BASED(SEUInputP) D StmtLength 10i 0 D CurRec 10i 0 D CurCol 10i 0 D CCSID 10i 0 D InputRecords 10i 0 D SrcMbr 10 D SrcFil 10 D SrcLib 10 D MbrType 10 D FnKey 1 D SEUMode 1 D SplitSession 1 D ReservedInp 1 //SEU OutPut D SEUOutput DS BASED(SEUOutputP) D ReturnCode 1 D ReservedOut1 3 D OutputRecords 10i 0 D InsertedSeq 7 D ReservedOut2 21 //Source statements. D SEUSource DS BASED(SEUSourceP) D LineCmd 7 D LineRetCode 1 D SourceSeq 6 D SourceDate 6 D SourceStmt 256 * API error structure D ErrStruc DS inz D ErrSSize 10i 0 inz(%len(ErrStruc)) D ErrSUse 10i 0 D ErrSMsgID 7 D ErrSResrv 1 D ErrSData 80 DCmdString S 2000A //Execute CL command DExecmd PR N d 2000A Const d 96A DSEUInputPParm S * DSEUOutputPParm S * DSEUSourcePParm S * C *Entry PLIST C PARM SEUInputPParm C PARM SEUOutputPParm C PARM SEUSourcePParm C /Free SEUInputP = SEUInputPParm; SEUOutputP = SEUOutputPParm; If FnKey = ’8′; CmdString = ‘STRSEU SRCFILE(QTEMP/SEUQMQRY) SRCMBR(SEUQMQRY) OPTION(5)’; CmdString = ‘CALL PGM(STRSEUCLP)’; CallP ExeCmd(CmdString:ErrStruc); EndIf; *InLr = *On; /End-Free //================================================================ //Execute CL command with QCAPCMD API //================================================================ PExecmd b DExecmd PI N dcmdString 2000A Const dErrorDS 96A //Prototype for QCAPCMD API DExecuteCommand PR EXTPGM(‘QCAPCMD’) D 2000A D 10i 0 D 41A D 10i 0 D 8 D 1 D 10i 0 D 10i 0 D 96A //Parameters for QCAPCMD API dcommand s 2000A dcmdlng s 10i 0 docb ds d type 10i 0 inz(0) d DBCSdh 1 inz(’0′) d prompt 1 inz(’0′) d cmdsyntax 1 inz(’0′) d msgrtvkey 4 inz(x’00000000′) d reserve1 9 inz(x’000000000000000000′) docblength 10i 0 inz(x’00000014′) docbfmt 8 inz(‘CPOP0100′) dchgcmd 1 inz(‘ ‘) dlngchgcmd 10i 0 inz(0) dlngchgrtn 10i 0 inz(0) //API Error Data Structure D ErrStruc DS inz D ErrSSize 10i 0 inz(%len(ErrStruc)) D ErrSUse 10i 0 D ErrSMsgID 7 D ErrSResrv 1 D ErrSData 80 /Free //API Error Data Structure command = cmdString; cmdlng = %Len(%trim(command)); callp executecommand(command:cmdlng:ocb:ocblength:ocbfmt: chgcmd:lngchgcmd:lngchgrtn:ErrStruc); If ErrSUse > 0; //Dsply ErrSMsgID; ErrorDs = ErrStruc; Return *On; Else; Return *Off; EndIf; /End-Free PExecmd e

WDSC featuer missing from SEU

ToddN2000 — Thu, 11 Jun 2009 18:45:52 +0000

When developing a new program with lots of daily changes tracking can be tough.

The old SEU had a search by date feature. This was done with the F14 and entering a date.
You could then search for code changes made < , > or = th the entered date.

I cannot find a way to do this in WDSC.. Is it possible?

Rules to use SEU

NA — Wed, 10 Jun 2009 17:46:40 +0000

Hi,

i want to know the rules of using SEU editor , i always find errors when i write code:(

can any body help

Thanks

Maximum number of records limitations in SEU is only 32,764 records. Is there a way arround that?

Nadernumair — Wed, 03 Jun 2009 19:47:22 +0000

I am implementing the NESTING concept which requires me to add more lines of code to the same module. This makes the size of my module exceeds 32,764 lines which is the maximum allowed by SEU.

Is there anything that I can change on the defaults of SEU to allow the physical number of lines to be greater than 32,764?

Here is the error message I am getting in SEU:
“Member CT110 in file NNNLIB/QCBLSRC exceeds 32764 records.”

comments in dds source

ten2008 — Wed, 06 May 2009 12:06:51 +0000

hi please tell me how to comment a group of lines of code at a time in the SEU.thanks