×

Good News Everybody!

The new search engine is LIVE!

Please report any problems to david (at) midrange.com.




Tim,

Can you save and exit from any EWALIBT source members you have open in RDi? I can't get a lock on the file to save it. It should only take a couple of minutes to do the save and I'll let you know when done.

Thanks,

Kent Hohlen
IT Department

Eagle Window & Door, Inc.
An Andersen Window and Door Company

2045 Kerper Boulevard - Dubuque, IA 52001
Phone (563) 556-2270 - Fax (563) 556-4408 - www.EagleWindow.Com



Think of the environment before you print!


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of midrange-l-request@xxxxxxxxxxxx
Sent: Friday, May 11, 2012 2:13 PM
To: midrange-l@xxxxxxxxxxxx
Subject: MIDRANGE-L Digest, Vol 11, Issue 728

Send MIDRANGE-L mailing list submissions to
midrange-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/midrange-l
or, via email, send a message with subject or body 'help' to
midrange-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
midrange-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of MIDRANGE-L digest..."


*** NOTE: When replying to this digest message, PLEASE remove all text unrelated to your reply and change the subject line so it is meaningful.

Today's Topics:

1. Re: Belated Re: Client Access - users clicking the red X
whilestill signed on (Armand Borick)
2. easier SQL statements in CL (Stone, Joel)
3. RE: easier SQL statements in CL (Monnier, Gary)
4. Re: easier SQL statements in CL (Loek Maartens)
5. Re: easier SQL statements in CL (Luis Rodriguez)
6. Re: CPF3340 on CPYSPLF (Mike Krebs)
7. Re: easier SQL statements in CL (Luis Rodriguez)


----------------------------------------------------------------------

message: 1
date: Fri, 11 May 2012 14:41:51 -0400
from: "Armand Borick" <midrangel@xxxxxxxxxxxxxxxxxx>
subject: Re: Belated Re: Client Access - users clicking the red X
whilestill signed on

Sorry Chris!

The initial release only supports iSeries Access.

Custom Sign on screens are possible, but it's early!

Regards,
Armand

----- Original Message -----
From: "Chris Bipes" <chris.bipes@xxxxxxxxxxxxxxx>
To: "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
Sent: Friday, May 11, 2012 14:10
Subject: RE: Belated Re: Client Access - users clicking the red X whilestill
signed on


Will this work for other terminal emulators? Will this recognize a custom
sign on screen? Now write a full emulator and sell with this feature
configurable to replace Mochasoft which we have a site license for.

--
Chris Bipes
Director of Information Services
CrossCheck, Inc.


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Armand Borick
Sent: Friday, May 11, 2012 10:51 AM
To: Midrange Systems Technical Discussion
Subject: Belated Re: Client Access - users clicking the red X while still
signed on

You gave me a good idea.

So.....


<blatant self promotion>

Take a look at http://www.atticdesignlab.com and click on the "iSeries
Exit
Blocker" link on the left.

</blatant self promotion>

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.




------------------------------

message: 2
date: Fri, 11 May 2012 19:01:42 +0000
from: "Stone, Joel" <Joel.Stone@xxxxxxxxxx>
subject: easier SQL statements in CL

There MUST be a better method of coding SQL in a CL source member.


Here is what an SQL stmt might look like that I created today:

PGM
DCL &SQLCMD type(*CHAR) len(1000)
chgvar &sqlCmd ('create table qtemp/sqltemp1' +
*tcat ' (fld1 char(1),' +
*tcat ' fld2 char(1),' +
*tcat ' fld3 char(1),' +
*tcat ' clientN numeric(6,0))')

RUNSQL(&SQLCMD)


I recall that others like to create a string with the MSG commands.

Is it possible to code the straight SQL statements with no tricks in a CL source member (like in the old punch-card days to suck in a few data records?) :)

Any method would be great if I can skip all the *tcats, and quotes mess.

In the example below, is there a simple way to copy everything between the "/*" to a source member and run that?

Or any other method to keep the CL together with the SQL commands in the same member - without using quotes or tcat's.


Something like:


PGM
DCL &SQLCMD type(*CHAR) len(1000)

//start SQL
/*

create table qtemp/sqltemp1 (fld1 char(1) ---
fld2 char(1) |
fld2 char(1) |---- would like to run this nice readable SQL command in CL without quotes and tcat's
client numeric(6,0)) ___|

/*

RUNSQL




Thanks!

______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs Skyscan service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________


------------------------------

message: 3
date: Fri, 11 May 2012 19:05:37 +0000
from: "Monnier, Gary" <Gary.Monnier@xxxxxxxxx>
subject: RE: easier SQL statements in CL

Use a source member. Prompt RUNSQL with F4 then press F10.

The source member will contain the SQL statement(s) you want to run.

Gary Monnier


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
Sent: Friday, May 11, 2012 12:02 PM
To: Midrange Systems Technical Discussion
Subject: easier SQL statements in CL

There MUST be a better method of coding SQL in a CL source member.


Here is what an SQL stmt might look like that I created today:

PGM
DCL &SQLCMD type(*CHAR) len(1000)
chgvar &sqlCmd ('create table qtemp/sqltemp1' +
*tcat ' (fld1 char(1),' +
*tcat ' fld2 char(1),' +
*tcat ' fld3 char(1),' +
*tcat ' clientN numeric(6,0))')

RUNSQL(&SQLCMD)


I recall that others like to create a string with the MSG commands.

Is it possible to code the straight SQL statements with no tricks in a CL source member (like in the old punch-card days to suck in a few data records?) :)

Any method would be great if I can skip all the *tcats, and quotes mess.

In the example below, is there a simple way to copy everything between the "/*" to a source member and run that?

Or any other method to keep the CL together with the SQL commands in the same member - without using quotes or tcat's.


Something like:


PGM
DCL &SQLCMD type(*CHAR) len(1000)

//start SQL
/*

create table qtemp/sqltemp1 (fld1 char(1) ---
fld2 char(1) |
fld2 char(1) |---- would like to run this nice readable SQL command in CL without quotes and tcat's
client numeric(6,0)) ___|

/*

RUNSQL




Thanks!

______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs Skyscan service.
For more information please visit http://www.symanteccloud.com ______________________________________________________________________
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.



------------------------------

message: 4
date: Fri, 11 May 2012 21:06:02 +0200
from: "Loek Maartens" <l.maartens@xxxxxxxxx>
subject: Re: easier SQL statements in CL

Hi Joel,

Maybe you mean like in RUNSQLSTM ?

Kind regards,

Loek Maartens.


"Stone, Joel" <Joel.Stone@xxxxxxxxxx> wrote in
message
news:0B57EB3973113A47A96A7FD995D2B6E025A35895@xxxxxxxxxxxxxxxxxxxxx...
There MUST be a better method of coding SQL in a CL source member.


Here is what an SQL stmt might look like that I created today:

PGM
DCL &SQLCMD type(*CHAR) len(1000)
chgvar &sqlCmd ('create table qtemp/sqltemp1' +
*tcat ' (fld1 char(1),' +
*tcat ' fld2 char(1),' +
*tcat ' fld3 char(1),' +
*tcat ' clientN numeric(6,0))')

RUNSQL(&SQLCMD)


I recall that others like to create a string with the MSG commands.

Is it possible to code the straight SQL statements with no tricks in a CL
source member (like in the old punch-card days to suck in a few data
records?) :)

Any method would be great if I can skip all the *tcats, and quotes mess.

In the example below, is there a simple way to copy everything between the
"/*" to a source member and run that?

Or any other method to keep the CL together with the SQL commands in the
same member - without using quotes or tcat's.


Something like:


PGM
DCL &SQLCMD type(*CHAR) len(1000)

//start SQL
/*

create table qtemp/sqltemp1 (fld1 char(1) ---
fld2 char(1) |
fld2 char(1) |---- would
like to run this nice readable SQL command in CL without quotes and tcat's
client numeric(6,0)) ___|

/*

RUNSQL




Thanks!

______________________________________________________________________
This outbound email has been scanned for all viruses by the MessageLabs
Skyscan service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email:
MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.






------------------------------

message: 5
date: Fri, 11 May 2012 14:40:31 -0430
from: Luis Rodriguez <luisro58@xxxxxxxxx>
subject: Re: easier SQL statements in CL

Joel,

You could use QShell and environment variables. Something (off the top of
my balding head) like this:

DCL VAR(&CUSTNO) TYPE(*CHAR) LEN(4) VALUE('1234')
DCL VAR(&LIB) TYPE(*CHAR) LEN(10) VALUE('FILELIB')

ADDENVVAR ENVVAR(custno) VALUE(&CUSTNO) REPLACE(*YES)
ADDENVVAR ENVVAR(lib) VALUE(&LIB) REPLACE(*YES)

QSH CMD('db2 "select custno,custnm,addr from $lib.custmas +
where custno=$custno"')

Regards,


Luis Rodriguez
IBM Certified Systems Expert ? eServer i5 iSeries

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.