An obvious con is people could infect the network with a virus…A pro is that it would cut down on equipment cost for the company if personal device were allowed. It all comes down to your security and how trustworthy your employees are. The only way our employees are allowed remote access is thru a VPN.
Wireless access is a different story, connections show but require a password. Not everyone gets it. Only company devices that have been approved will get access and we have to sign an agreement. Do not know if someone gave the password to another user using a personal device would be able to log in but I wouldn’t risk my job over it.

Yep. All you need to do is sit in one identity theft seminar and you would think twice about using Facebook. IBM Common offered a seminar on identity theft a few years back and it was a real eye opener. If you post info like actual birthdate, city you live in, schools you went to or list other family members..you left yourself wide open. It’s amazing how little is needed to get one’s entire life story on line. A lot from public records and other organizations that may be sharing your info with out your knowledge… I don’t even bank on line or have a smart phone.. To easy for people to intercept electronic communications these days. If you are worried the best thing is keep it to yourself.

I don’t see the [b]sfile[/b] in your workstation file specification.

T-SQL is a dialect of SQL/PSM.

What language set is your AS/400 currently using? If you have multiple input languages from Excel, how do want them stored? What language codes have you tried?

I have a presentation titled “Working with Messages 101″ which, among other things, demonstrates how to use a message subfile. The presentation includes complete examples with all of the DDS, RPG, and message source provided. If you would like a copy send me an email at bvining@brucevining.com

Bruce Vining

Tom,

There are 3 printers to choose from. They are as follows:

CRTDEVPRT DEVD(P6) DEVCLS(*LAN) TYPE(3812) MODEL(1) LANATTACH(*IP) PORT(9100) ATTACH(*DIRECT) ONLINE(*YES) FONT(011 *NONE)
FORMFEED(*AUTOCUT) SEPDRAWER(*FILE) PRTERRMSG(*INQ)
MSGQ(*CTLD) ACTTMR(170) INACTTMR(*SEC15) LINESPEED(19200)
WORDLEN(8) PARITY(*NONE) STOPBITS(1) TRANSFORM(*YES) +
MFRTYPMDL(*HP8000) PPRSRC1(*LETTER) PPRSRC2(*LETTER)
ENVELOPE(*NUMBER10) ASCII899(*NO) IMGCFG(*NONE)
CHRID(*SYSVAL) RMTLOCNAME(‘XXX.XXX.XXX.XXX’)
SYSDRVPGM(*HPPJLDRV) TEXT(‘Hewlett-Packard 8150′)

CRTDEVPRT DEVD(P2) DEVCLS(*LAN) TYPE(*IPDS) MODEL(0) LANATTACH(*IP) AFP(*YES) PORT(5001) ONLINE(*YES) FONT(011 *NONE)
FORMFEED(*AUTOCUT) SEPDRAWER(*FILE) PRTERRMS(*INQ)
MSGQ(*CTLD) ACTTMR(*NOMAX) IMGCFG(*NONE) MAXPNDRQS(6)
PRTCVT(*YES) FORMDF(*LIBL/F1C10110) CHRID(*SYSVAL)
RMTLOCNAME(‘XXX.XXX.XXX.X’)
USRDFNOBJ(QGPL/IPDSPRT *PSFCFG) +
TEXT(‘IBM1552DN’) DEPLOCNAME(*NONE)

CRTDEVPRT DEVD(P3) DEVCLS(*LAN) TYPE(3812) MODEL(1) LANATTACH(*IP) PORT(9100) ATTACH(*DIRECT) ONLINE(*YES) FONT(11 *NONE) FORMFEED(*AUTOCUT) SEPDRAWER(*FILE) PRTERRMSG(*INQ)
MSGQ(*CTLD) ACTTMR(170) INACTTMR(*SEC15) LINESPEED(19200)
WORDLEN(8) PARITY(*NONE) STOPBITS(1) TRANSFORM(*YES)
MFRTYPMDL(*HP5SI) PPRSRC1(*LETTER) PPRSRC2(*LETTER)
ENVELOPE(*NUMBER10) ASCII899(*NO) IMGCFG(*NONE)
CHRID(*SYSVAL) RMTLOCNAME(‘XXX.XXX.XXX.XX’) SYSDRVPGM(*HPPJLDRV)

IS this what you are asking me ?

Thanks for your assistance !

Try IIF(field 1 > 0, 25, 0)

Yes, it can be done, but I do not believe it can be done with a single siomple instruction
If this is something that is going to be done quite often, IO would create a procedure to call, rather than coding someing in one or more programs.
Do you need to individual stemps to do this?

argghhh! <br>

but it misread the HTML when I tried to space it out to tell what I did: > br <

or the old data is in the underlying table and will need to be updated somehow.

OMG it pasted in clearly! I did an HTML to drop to a new line and I remembered this compiler used [ c o d e] and [ / c o d e ] (without the extra spaces) to layout the programming portion

this isn’t exactly you’re solution, but it should show you how to go about it. If I can get it to paste in reasonably well.

     H indent('|') option(*nodebugio:*srcstmt)

      *********************************************************
      * Data Conversion -- Convert from older numbering formats
      * to new format of XXnnnnnnnn by inserting "leading"
      * zeros after the inital two alpha characters.
      *********************************************************
      *  Convert     XXnnnnn   to XX000nnnnn
      *  Convert     XXnnnnnn  to XX00nnnnnn
      *  Convert     XXnnnnnnn to XX0nnnnnnn
      *********************************************************
      * Note: this must be done to converted field in ALL
      * existing system files. 
      *********************************************************
      * Kevin C. Ketzler -- Affiliated Resource Group
      *********************************************************

     D wk_fld          s             10a
     D field           s             10a
     D file            s             10a
     D stmt            s          32765a

     C                   eval      file = 'filename1'
     C                   eval      field = 'fieldname1'
     C                   exsr      convert

     C                   eval      file = 'filename2'
     C                   eval      field = 'fieldname2'
     C                   exsr      convert

     C                   eval      file = 'filename3'
     C                   eval      field = 'fieldname3'
     C                   exsr      convert

     C                   eval      *inlr = *on

      *********************************************************

     C     convert       begsr
     C                   exsr      PrepUpd
     C                   exsr      OpenCsr
     C                   exsr      FtchCsr

      * When compiled as SQLRPG or SQLRPGLE, two data structures
      * are automatically created (SQLCA and SQLDA) and SQLCOD  
      * is part of SQLCA.  The actual compiled code replaces the 
      * SQL statements with code to use the data structures and
      * the API's to interface with the query optimizer.  
     C                   dow       sqlcod = 0

      * manipulate the wk_fld string to insert '0' after first 
      * two characters until string is ten characters long.
     C                   if        %subst(wk_fld:10:1) = ' '
     C                   dou       %subst(wk_fld:10:1) <> ' '
     C                   eval      wk_fld = %subst(wk_fld:1:2) + '0' +
     C                             %subst(wk_fld:3:7)
     C                   enddo

     C                   exsr      ExecUpd
     C                   endif

     C                   exsr      FtchCsr
     C                   enddo

     C                   endsr

      *********************************************************

     C     OpenCsr       begsr

     C                   eval      stmt = 'SELECT ' + %trimr(field)
     C                             + ' FROM ' + %trimr(file)
     C                             + ' FOR UPDATE OF ' + %trimr(field)

     C/exec sql
     C+ PREPARE CSR_STR FROM :stmt
     C/end-exec

     C/exec sql
     C+ DECLARE CSR CURSOR FOR CSR_STR
     C/end-exec

     C/exec sql
     C+ OPEN CSR
     C/end-exec

     C                   endsr

      *********************************************************

     C     FtchCsr       begsr

     C/exec sql
     C+ FETCH CSR INTO :wk_fld
     C/end-exec

     C                   endsr

      *********************************************************

     C     ClosCsr       begsr

     C/exec sql
     C+ CLOSE CSR
     C/end-exec

     C                   endsr

      *********************************************************

     C     PrepUpd       begsr

     C                   eval      stmt = 'UPDATE ' + %trimr(file)
     C                             + ' SET ' + %trimr(field) + ' = ?'
     C                             + ' WHERE CURRENT OF CSR'

     C/exec sql
     C+ PREPARE UPD_STR FROM :stmt
     C/end-exec

     C                   endsr

      *********************************************************

     C     ExecUpd       begsr

     C/exec sql
     C+ EXECUTE UPD_STR USING :wk_fld
     C/end-exec

     C                   endsr

      *********************************************************

Is there a problem you are trying to solve?
This might help us suggest a “better” way.

and Tom, Iam facing this error when writing the Msg Subfile Ctlfmt.(i.e. WRITEMSGCTL)

- Svanky

To identify where the imagei / control is displayed, high light the form that the image is part of in Project Explorer. right click and select view code. In the top left title bar use the drop down and select Form. At this point what you do depends on ONE if the image is only displayed after clicking a control or if the image is part of the form when the form is displayed
If the image is part of the form, on the right hand title bar use the drop down and locate Activate or Load and that will show you all the code and activity that occurs when that form is loaded.
If the image is displayed only when a control is clicked then in the left hand totle bar use the drop down and select the control name. In the right had title bar there are a variety of events that could contain the trigger code to display the image. You should review: Got Focus, Click, Key Down, Lost Focus etc. depending on just when you desired the event to occur. Those events that are in bold print are the events that have code behind them.

I guess I’m having trouble reading the original request .. still looks to me like…

The request file has a date and an operator
20100101 GE
20110303 EQ

and the only difference in the SQL statements are based on the Operator

I think that the 5 sql statements could be reduced to 1.
Either with a case statement .. although I’m having a bit of a problem with that.
Or
A Union .. which contains 5 sql statements .. 4 of which return no records for any specific case.
Phil

When you say RPG do you mean RPGLE(RPG IV)?
When you say to dd/mm/yy format – do you mean
– convert it to a date type field?
– convert it to a char field ?
– convert it to a numeric field?

Better, we don’t know how you would evaluate a method.

Perhaps, Backup to external device, restore from external device?