IT Answers » STRSEU

Create source from a file object

RamvishakRamesh — Tue, 09 Apr 2013 05:23:56 +0000

New Discussion Post by CharlieBrowne

Showing issue in working with SEU

jatin18 — Wed, 21 Nov 2012 08:09:28 +0000

New Discussion Post by TomLiotta

Interactive command in CL

Fmext001 — Wed, 13 Apr 2011 14:13:00 +0000

How to successfully compile a CL program that has an interactive command such as STRSEU?

STRSEU *PRV

Cheekychimp — Tue, 18 May 2010 13:53:57 +0000

Entering STRSEU *PRV will edit the last member previously edited. How do I access the name of the last source member edited? (the AS400 must be keeping that source member name somewhere)

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

STRSEU chaging of color attribute

Joycm — Fri, 11 Sep 2009 04:19:45 +0000

how to change the color attribute when writing a comment or specifc instruction during source coding?

Print a txt member of a qclsrc file using strseu does not work from Advanced JS

Opssvr05 — Thu, 19 Mar 2009 19:30:16 +0000

I want to print, a “txt” file member, from a qclsrc file using strseu, option 6. I have a cl (Ovrprtf & strseu) that accomplishes this interactively, but when I call this cl from an Advanced JS, job I get an error {CPF000,1 error – Error found on STRSEU command,) and it does not print. The library (not in a library list) is the current library and the qclsrc file both have *public & QIJS as having all authorithy to them. If I monmsg for the cpf0001 the js job runs to *normal eoj condition but also produces no output. If this won’t work, is there another way of printing these simple txt file members from JS?

Command Validation Program

Triggerman400 — Tue, 18 Mar 2008 18:06:38 +0000

We have a command validtion program for the STRSEU command which allows us to check who is opening a source member for editing and whether they are authorized to do so. We would like to extend that same functionality to the WDSc editors. Is there an exit point we could exploit for this?