Code400 -The Support Alternative

Code400 -The Support Alternative - CLP/CLLE http://www.code400.com/forum/ CLP/CLLE Code Forum en Tue, 07 Sep 2010 00:29:40 GMT vBulletin 60 http://www.code400.com/forum/images/misc/rss.png Code400 -The Support Alternative - CLP/CLLE http://www.code400.com/forum/ read/ write into a Data Queue http://www.code400.com/forum/showthread.php/9627-read-write-into-a-Data-Queue?goto=newpost Thu, 02 Sep 2010 13:57:19 GMT Apart from using API's QSNDDTAQ & QRCVDTAQ, Is there any command in AS400 to directly read/write into a Data Queue. ]]> CLP/CLLE vinothkumar http://www.code400.com/forum/showthread.php/9627-read-write-into-a-Data-Queue Types conversion in CL? http://www.code400.com/forum/showthread.php/9624-Types-conversion-in-CL?goto=newpost Wed, 01 Sep 2010 23:05:10 GMT Hello all... hope someone can give me a pointer with this:

DCL VAR(&DAY) TYPE(*CHAR) LEN(2)

RTVSYSVAL SYSVAL(QDAY) RTNVAR(&DAY)

IF COND(&DAY *LT 7) THEN(....)

When I try to compile this, I get "CPD0711 30 Operands in expression not same type."
Since QDAY is a *CHAR, and 7 is not, is there any way to perform a explicit type conversion to convert the &DAY var to a decimal, so that I can compare it against a numeric value? I thought that CL should be able to do an implicit conversion.

This is all part of a block of code I'm putting together that should return which Friday of the week it is (1, 2, 3, 4, or 5). I'd also welcome suggestions for better ways to do that...

Thanks in advance!! ]]> CLP/CLLE benhu http://www.code400.com/forum/showthread.php/9624-Types-conversion-in-CL I need some input please http://www.code400.com/forum/showthread.php/9620-I-need-some-input-please?goto=newpost Wed, 01 Sep 2010 12:51:32 GMT Since CL has been discontinued since the late 80's...
I'm thinking about removing the CL forum...

What do you Think?

Jamie ]]> CLP/CLLE jamief http://www.code400.com/forum/showthread.php/9620-I-need-some-input-please MSG Reply from QSYSOPR http://www.code400.com/forum/showthread.php/9617-MSG-Reply-from-QSYSOPR?goto=newpost Tue, 31 Aug 2010 22:49:09 GMT OK, I'm staring at things WAY too long ... what am I missing? This goes into an endless loop and just keeps sending the message to the QSYSOPR. I need to validated to continue or give option to cancel.

PHP Code:


TapeCheck2:
    SndPgmMsg msgdta( 'Mount tape and press G-Continue, C-Cancel' ) +
              msgid( cpf9897 )                                  +
              msgf( QCPFMSG )                                   +
              topgmq( *EXT )                                    +
              tomsgq( *SYSOPR )                                 +
              msgtype( *INQ )

    RcvMsg    msgtype( *RPY )                                   +
              msg( &Reply )

    If        ( &Reply *NE 'G' *AND &Reply *NE 'g' ) *AND       +
              ( &Reply *NE 'C' *AND &Reply *NE 'c' )            +
              then( Goto TapeCheck2 )

BTW ... this is a Batch Job. ]]> CLP/CLLE FaStOnE http://www.code400.com/forum/showthread.php/9617-MSG-Reply-from-QSYSOPR Calling a procedure from CL (first attempt at CLLE) http://www.code400.com/forum/showthread.php/9577-Calling-a-procedure-from-CL-(first-attempt-at-CLLE)?goto=newpost Fri, 20 Aug 2010 21:11:26 GMT Ok.. I've created several ILE RPG procedures. I use them all the time in RPG programs. Like many, I use binding directories in the H-specs... nearly all of my procedures involve a return variable.

NOW, I have the need to call a procedure from w/in some CL programs. The ILE RPG program returns the accounting year/period based on the date passed in (fiscal year/periods).

I understand that I'need to define my old CLP as CLLE and use the CALLPRC command. However, I can't get this to work... I created a simple CLLE source, used the CRTMOD command (option 15 in PDM), then the CRTPGM command to create the program - referencing the same binding directory used by the RPG pgms. When the CLLE pgm is called interactively it hangs at the statement where the procedure is called (had it in debug). :duh

First of all, I'm extremely dissapointed that I have to create a module AND THEN then create a pgm to use CLLE... why bother with all the work.
Second, if it is this difficult to get CLLE pgms to work, I'm going "old-school" and call a freekin' RPG pgm to call the procedure to return the value i'm looking for.

I have quite a few existing CLP and ILE RPG applications that need to use this new procedure... So I don't want to re-invent the wheel here.

Any help with creating/compiling my first CLLE pgm would be appreciated. ]]> CLP/CLLE gwilburn http://www.code400.com/forum/showthread.php/9577-Calling-a-procedure-from-CL-(first-attempt-at-CLLE) How to restore with new library using RSTLIB http://www.code400.com/forum/showthread.php/9575-How-to-restore-with-new-library-using-RSTLIB?goto=newpost Fri, 20 Aug 2010 07:39:16 GMT Hi All, Here I have one problem during restoration, if anyone could help that would be great. I am restoring a library via CLLE program in batch. During restoration if we give a new library name in RSTLIB parameter of RSTLIB command then journals and their receivers are not restored. ... Hi All,

Here I have one problem during restoration, if anyone could help that would be great.

I am restoring a library via CLLE program in batch.
During restoration if we give a new library name in RSTLIB parameter of RSTLIB command then journals and their receivers are not restored.

Steps that I am doing

Step1: CRTLIB LIB(&MyNewLib)
Step2: I am using following parameters on RSTLIB command

RSTLIB SAVLIB(TEST) DEV(*SAVF) SAVF(SAVELIBSC/MYSAVF) RSTLIB(NIL) OUTPUT(*PRINT)

Here is the error I am getting. All objects are restore except following journal and its receiver.

Message ID . . . . . . : CPF7086 Severity . . . . . . . : 30
Message type . . . . . : Diagnostic
Date sent . . . . . . : 08/20/10 Time sent . . . . . . : 01:50:33

Message . . . . : Cannot restore journal PF002JRN to library NIL.
Cause . . . . . : Library NIL is not the library where journal PF002JRN was originally created. Journal PF002JRN was originally created in library TEST and can only be restored to this library. This operation is not allowed because the association between journal receivers and the journal would be lost.
Recovery . . . : Change the name of the library in the RSTLIB parameter value. Then try the request again.

Kindly let me know how we can overcome with this problem. ]]> CLP/CLLE Nil http://www.code400.com/forum/showthread.php/9575-How-to-restore-with-new-library-using-RSTLIB HOw can I chain In CLLE http://www.code400.com/forum/showthread.php/9574-HOw-can-I-chain-In-CLLE?goto=newpost Fri, 20 Aug 2010 04:34:17 GMT I just want to select a particular record in Database file ... I think i can use Runqry DYNSLT ...but that is not the right process i think.. Can any one give me good IDEA THanks in advance venky I just want to select a particular record in Database file ...
I think i can use Runqry DYNSLT ...but that is not the right process i think..

Can any one give me good IDEA

THanks in advance
venky ]]> CLP/CLLE venky2903 http://www.code400.com/forum/showthread.php/9574-HOw-can-I-chain-In-CLLE FTP Line Wrapping http://www.code400.com/forum/showthread.php/9567-FTP-Line-Wrapping?goto=newpost Thu, 19 Aug 2010 11:13:05 GMT Hi Does anyone know how to wrap a line in FTP using an iSeries source file? The maximum length for a PDM viewable source file is 240 but the command may exceed this. Any ideas? Thanks. Hi

Does anyone know how to wrap a line in FTP using an iSeries source file?

The maximum length for a PDM viewable source file is 240 but the command may exceed this.

Any ideas?

Thanks. ]]> CLP/CLLE Andygeee http://www.code400.com/forum/showthread.php/9567-FTP-Line-Wrapping How to RCVMSG in CLLE http://www.code400.com/forum/showthread.php/9542-How-to-RCVMSG-in-CLLE?goto=newpost Fri, 13 Aug 2010 11:20:19 GMT Hi All, Could any one tell me how to retrieve or receive message in following scenario. Program A is calling program B Program B sends some message using SNDMSG to user (which is retrieved in program B), now when program B finishes it returns to program A. Here in program A I want to... Hi All,

Could any one tell me how to retrieve or receive message in following scenario.

Program A is calling program B
Program B sends some message using SNDMSG to user (which is retrieved in program B),
now when program B finishes it returns to program A. Here in program A I want to retrieve the message which program B has sent.

How we can do this......... ]]> CLP/CLLE Nil http://www.code400.com/forum/showthread.php/9542-How-to-RCVMSG-in-CLLE Reg : Command http://www.code400.com/forum/showthread.php/9505-Reg-Command?goto=newpost Wed, 04 Aug 2010 10:36:28 GMT Hi all Is any command is to find how many programs used particular physical file Thanx in Advance magesh Hi all

Is any command is to find how many programs used particular physical file

Thanx in Advance
magesh ]]> CLP/CLLE kmkmagesh http://www.code400.com/forum/showthread.php/9505-Reg-Command MonMsg CPA2129 http://www.code400.com/forum/showthread.php/9501-MonMsg-CPA2129?goto=newpost Mon, 02 Aug 2010 19:13:06 GMT In cleaning up servers that are going to be retired, I have to do a ClrLib on QGPL --- BUT, I get the following message: CPA2129 -- Clearing or deleting system library QGPL. (I C) I have a MonMsg for it... but, it still forces this message. Any ideas on bypassing this? In cleaning up servers that are going to be retired, I have to do a ClrLib on QGPL --- BUT, I get the following message:

CPA2129 -- Clearing or deleting system library QGPL. (I C)

I have a MonMsg for it... but, it still forces this message. Any ideas on bypassing this? ]]> CLP/CLLE FaStOnE http://www.code400.com/forum/showthread.php/9501-MonMsg-CPA2129 macro script in CLP? http://www.code400.com/forum/showthread.php/9482-macro-script-in-CLP?goto=newpost Wed, 28 Jul 2010 03:22:26 GMT hi! I'm new here guys... I just wanna know if its possible to insert a macro script in a clp program that i could call as a program? can i have a simple sample? or there's a better way? thnks u so much....

PGM
'macro script
ENDPGM ]]> CLP/CLLE etyasan http://www.code400.com/forum/showthread.php/9482-macro-script-in-CLP printer config like telnet http://www.code400.com/forum/showthread.php/9481-printer-config-like-telnet?goto=newpost Tue, 27 Jul 2010 18:24:14 GMT I have a project where I send data over to a windows box which then processes it and dispenses drugs. I am able to telnet to a box and send data over successfully. Is there a printer configuration that has same communication properties as a telnet session? Or is there a way that I can program a... I have a project where I send data over to a windows box which then processes it and dispenses drugs. I am able to telnet to a box and send data over successfully. Is there a printer configuration that has same communication properties as a telnet session? Or is there a way that I can program a telnet connection and specify strings to send?
:confused: ]]> CLP/CLLE ted http://www.code400.com/forum/showthread.php/9481-printer-config-like-telnet Opnqryf http://www.code400.com/forum/showthread.php/9453-Opnqryf?goto=newpost Wed, 21 Jul 2010 05:45:09 GMT Hello Team,
Firstly let me thank you all in advance !!!

I have one criteria for selection of records from a file using OPNQRYF.....I need to reteive the records which are of TMZA(file A) *GE &tmz2.
TMZA is timestamp in file A and &date is variable declared in CL.

Please find my code below :

Code:

 DCL        VAR(&TMZ1) TYPE(*char) LEN(26)

 DCL        VAR(&TMZ2) TYPE(*char) LEN(15) VALUE('00.00.00.000000')

 DCL        VAR(&DATE) TYPE(*CHAR) LEN(8)



DCLF       FILE(FILEA)



RCVF       RCDFMT(filer)

CHGVAR     VAR(&TMZ1) VALUE(&TMZA)

..........Value of &TMZ1 would be time stamp value from file i.e '2010-01-16-00.38.31.178000'

CHGVAR     VAR(%SST(&TMZA 12 15)) VALUE(&TMZ2) 

.......value of &TMZA will get changed to ''2010-06-26-00.00.00.000000'



OVRDBF     FILE(FILEA) OVRSCOPE(*JOB) SHARE(*YES)



OPNQRYF    FILE((FILEA)) QRYSLT('TMZA *GE' *BCAT &TMZ1)

.......once this is executed am getting below error

'Character '.' following string '00.38 ' not valid.'

Also tried in different way even...By extracting date from TMZA...

Code:

DCL        VAR(&TMZ2) TYPE(*CHAR) LEN(8)  

DCL        VAR(&tmz1) TYPE(*CHAR) LEN(10) 

DCL        VAR(&DATE) TYPE(*CHAR) LEN(8) 



CHGVAR     VAR(&TMZ1) VALUE(%SST(&TMZA 1 10))

CVTDAT     DATE(&TMZ1) TOVAR(&TMZ1) FROMFMT(*ISO) 

             TOFMT(*YYMD) TOSEP(*NONE) 

CHGVAR     VAR(&TMZ2) VALUE(&TMZ1)



OPNQRYF    FILE((FILEA)) QRYSLT('&TMZ2 *GE' *BCAT &date)

.......once executed am getting below error...
'Missing operand on expression in QRYSLT parameter.'

Could you please help me in getting the correct query for my requirment.

Thankyou...... ]]> CLP/CLLE abhishek_ec002 http://www.code400.com/forum/showthread.php/9453-Opnqryf