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

This thread ...


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

This mailing list archive is Copyright 1997-2020 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].