×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Send system todays date to client CORE02 - "PC iSeries Accsess for Windows version 5.9 for Win

Send system todays date to client CORE02 - "PC iSeries Accsess for Windows version 5.9 for Win

Send system todays date to client CORE02 - "PC iSeries Accsess for Windows version 5.9 for Win

(OP)
Hi, i tried to googled it, i tried to find it here in forum. I am absolute newbie so sorry if it is stup... question.
I use CORE02 client. In about is this info
"PC iSeries Accsess for Windows version 5.9 for Win"

I use some of macros, which i recorded but now i try to customize keyboard. I want to use keyboard shortcut, wich send to my client window today date in some format.
Is it possible?
E.g.
I press Ctrl+m and it immediately send now 20150515.

I tried infos from this thread
Link
, but it didnt worked for me.

Thx a lot for any suggestions.

RE: Send system todays date to client CORE02 - "PC iSeries Accsess for Windows version 5.9 for Win

(OP)
i tried this, but it doesnt works :(

CODE -->

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine

REM sub subSub1_(date_mmddyy)
sub subSub1_()
dim DATUM 
DATUM = CDec(Format(Now(), "yyyymmdd"))

   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys DATUM 
end sub 

RE: Send system todays date to client CORE02 - "PC iSeries Accsess for Windows version 5.9 for Win

Although your script may say it is using VBScript, this does not appear to be a VBScript Question.

RE: Send system todays date to client CORE02 - "PC iSeries Accsess for Windows version 5.9 for Win

What exactly isn't working? Does anything happen? Do you get an error?

RE: Send system todays date to client CORE02 - "PC iSeries Accsess for Windows version 5.9 for Win

(OP)
It's only seems, that it something did, but no error, no results,no info. Sorry maybe I am in wrong threat. I use core02 and I don't understand this system very well. I am better in vba. I want this because we use it everyday and we have to manualy write something stup.. like today(). I don't believe, that there is not any easy solution to make shortcut for today. Maybe the main problem is, that I don't know, what for language is used in CORE02.😕 Sorry for that.

RE: Send system todays date to client CORE02 - "PC iSeries Accsess for Windows version 5.9 for Win

Assuming your problem is in the small amount of vbscript you have, Format is not a VBScript function, so you would need something like below:

CODE

DATUM = _
   Right(Year(Date()), 4) & _
   Right("0" & Month(Date()), 2) & _
   Right("0" & Day(Date()), 2) 

The rest of the code is not VBScript, so you may need to look elsewhere for help with that part. Maybe you can find a CORE2 or AS/400 etc user group to help.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close