• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • API Fun Time

    July 16, 2008 Hey, Ted

    We have a job that is designed to run periodically to collect XML files from a third party via FTP. Rather than have a program that is constantly active, it was decided that the very first action of the program would be to re-submit itself to a single entry job queue with a scheduled run time derived from a maintainable value held on a file. The benefit of this approach is that if for some reason the program fails there is no need to worry about re-starting the process–unless of course the program failed at the self-submit stage!

    When an initial start of the process is required the program can be called in “startup” mode. The routine for this first checks to make sure there isn’t an instance on the job queue with a status of scheduled. If there is, a suitable message is sent. Now it would be convenient if this message included the time of the next run of the program so I turned for help to the Retrieve Job Information QUSRJOBI API.

    The good news is that there is a format (JOBI0400) that provides “Date and time job is scheduled to run”; the less good news is that it is returned in a strange eight character field. In a corner of the Work Management API Attribute Descriptions manual I eventually found a clue: “The format for this field is the system time-stamp format.” So how do I use it? Some determined Googling turned up the answer, call the Convert Date and Time Format (QWCCVTDT) API with an input format of *DTS (system time-stamp) and an output format of *YYMD. Below is some code to do the trick:

    ************************************************************
    *Program to retrieve the scheduled run time of a queued job*
    *Input parameter : qualified job name of scheduled job     *
    *Output parameter: scheduled run time in format hh:mm:ss   *
    ************************************************************
    D SCD001          PR                  extpgm('SCD001')
    D pJob                          26
    D pStime                         8
    
    D SDX001          PI
    D pJob                          26
    D pStime                         8
    
    D CvtDatTim       PR                  extpgm('QWCCVTDT')
    D   pInpFmt                     10
    D   pInpVal                      8
    D   pOutFmt                     10
    D   pOutVal                     17
    D   ErrorData                32766    options(*varsize)
    
    D RtvJobInf       PR                  extpgm('QUSRJOBI')
    D   RcvVar                   32766    options(*varsize)
    D   RcvVarLen                   10i 0 const
    D   Format                       8    const
    D   JobName                     26    const
    D   IntJobID                    16    const
    D   ErrorData                32766    options(*varsize)
    
     * API error data structure
    D erDs            DS
    D  erDsBytesP                   10i 0 inz(0)
    D  erDsBytesA                   10i 0 inz(0)
    D  erDsMsgID              9     15
    D  erDsReserv            16     16
    D  erDsMsgDta            17    256
    
     * Definitions for QUSRJOBI formats
     /COPY QSYSINC/QRPGLESRC,QUSRJOBI
    
    D ScdDatTim       DS
    D  ScdDat                        8s 0
    D  ScdHMS                        6s 0
    D  ScdMS                         3s 0
    
     * Convert date/time (QWCCVTDT) API input/output formats
    D InpFmt          S             10    inz( '*DTS' )
    D OutFmt          S             10    inz( '*YYMD' )
    
     * Edit word constant to format the time
    D editwd          C                   '  :  :  '
    
    * Monitor for errors eg job not found
    C                   monitor
    
     * Retrieve job attribute information
    C                   callp     RtvJobInf(QUSI0400:%size(QUSI0400):
    C                                    'JOBI0400':pJob:*blank:erDs)
    C                   if        erDsBytesA > 0
    C                   eval      pStime     = 'unknown'
    C                   else
    * Convert from system timestamp to something readable!
    C                   callp     CvtDatTim(InpFmt:QUSSDT:OutFmt:
    C                                          ScdDatTim:erDs)
     * Return scheduled run time in the format hh:mm:ss
    C                   eval      pStime     = %editw(ScdHMS:editwd 
    C                   endif
    
    C                   on-error
    C                   eval      pStime     = 'unknown'
    C                   endmon
    
    C                   eval      *Inlr      = *on
    C                   return
    

    –Phil Hope

    Thanks to Phil for sharing his code with the rest of us. I have fought similar battles, but never arrived at Phil’s graceful solution.

    –Ted



                         Post this story to del.icio.us
                   Post this story to Digg
        Post this story to Slashdot

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Tags:

    Sponsored by
    VISUAL LANSA 16 WEBINAR

    Trying to balance stability and agility in your IBM i environment?

    Join this webinar and explore Visual LANSA 16 – our enhanced professional low-code platform designed to help organizations running on IBM i evolve seamlessly for what’s next.

    🎙️VISUAL LANSA 16 WEBINAR

    Break Monolithic IBM i Applications and Unlock New Value

    Explore modernization without rewriting. Decouple monolithic applications and extend their value through integration with modern services, web frameworks, and cloud technologies.

    🗓️ July 10, 2025

    ⏰ 9 AM – 10 AM CDT (4 PM to 5 PM CEST)

    See the webinar schedule in your time zone

    Register to join the webinar now

    What to Expect

    • Get to know Visual LANSA 16, its core features, latest enhancements, and use cases
    • Understand how you can transition to a MACH-aligned architecture to enable faster innovation
    • Discover native REST APIs, WebView2 support, cloud-ready Azure licensing, and more to help transform and scale your IBM i applications

    Read more about V16 here.

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Sponsored Links

    Vision Solutions:  System i Management Tips Blog - Free i5/OS Tips Each Week!
    Aldon:  Get ITIL compliant with Aldon's Application Lifecycle Management solutions
    COMMON:  Join us at the Focus 2008 workshop conference, October 5 - 8, in San Francisco, California

    IT Jungle Store Top Book Picks

    Easy Steps to Internet Programming for AS/400, iSeries, and System i: List Price, $49.95
    Getting Started with PHP for i5/OS: List Price, $59.95
    The System i RPG & RPG IV Tutorial and Lab Exercises: List Price, $59.95
    The System i Pocket RPG & RPG IV Guide: List Price, $69.95
    The iSeries Pocket Database Guide: List Price, $59.00
    The iSeries Pocket Developers' Guide: List Price, $59.00
    The iSeries Pocket SQL Guide: List Price, $59.00
    The iSeries Pocket Query Guide: List Price, $49.00
    The iSeries Pocket WebFacing Primer: List Price, $39.00
    Migrating to WebSphere Express for iSeries: List Price, $49.00
    iSeries Express Web Implementer's Guide: List Price, $59.00
    Getting Started with WebSphere Development Studio for iSeries: List Price, $79.95
    Getting Started With WebSphere Development Studio Client for iSeries: List Price, $89.00
    Getting Started with WebSphere Express for iSeries: List Price, $49.00
    WebFacing Application Design and Development Guide: List Price, $55.00
    Can the AS/400 Survive IBM?: List Price, $49.00
    The All-Everything Machine: List Price, $29.95
    Chip Wars: List Price, $29.95

    5250 Emulator for iPhone? Mochasoft is On It What the Heck Is the Midrange, Anyway?

    Leave a Reply Cancel reply

Volume 8, Number 26 -- July 16, 2008
THIS ISSUE SPONSORED BY:

WorksRight Software
ProData Computer Services
COMMON

Table of Contents

  • API Fun Time
  • Conditional Inserts with JDBC Prepared Statements
  • Admin Alert: A Client Access Mystery Solved. . . with No-Prizes!!!

Content archive

  • The Four Hundred
  • Four Hundred Stuff
  • Four Hundred Guru

Recent Posts

  • Liam Allan Shares What’s Coming Next With Code For IBM i
  • From Stable To Scalable: Visual LANSA 16 Powers IBM i Growth – Launching July 8
  • VS Code Will Be The Heart Of The Modern IBM i Platform
  • The AS/400: A 37-Year-Old Dog That Loves To Learn New Tricks
  • IBM i PTF Guide, Volume 27, Number 25
  • Meet The Next Gen Of IBMers Helping To Build IBM i
  • Looks Like IBM Is Building A Linux-Like PASE For IBM i After All
  • Will Independent IBM i Clouds Survive PowerVS?
  • Now, IBM Is Jacking Up Hardware Maintenance Prices
  • IBM i PTF Guide, Volume 27, Number 24

Subscribe

To get news from IT Jungle sent to your inbox every week, subscribe to our newsletter.

Pages

  • About Us
  • Contact
  • Contributors
  • Four Hundred Monitor
  • IBM i PTF Guide
  • Media Kit
  • Subscribe

Search

Copyright © 2025 IT Jungle