• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Easy Printing from CL, Take Two

    August 30, 2016 Hey, Ted

    When I read your statement that CL cannot write to printer files, I immediately thought, “It can’t? Then what have I been doing for the last couple of decades?” I looked through the article and saw that it didn’t mention my most used method, and I wondered how it was missed.

    –Tom Liotta

    Tom takes advantage of one of the best features of ILE, namely the ability to bind routines written in different languages to form one program. The non-CL procedure that he included is the printf function, which is well-known to C programmers. Even though printf produces stream output, IBM i can make it write record output as well.

    Here’s Tom’s program to list disabled user profiles.

    /* +
       CRTCLMOD MODULE( mylib/LSTUSRDSE )            +
                SRCFILE( mylib/QCLTSRC )             +
                SRCMBR( LSTUSRDSE )                  +
                LOG( *NO )                           +
                                                     +
       CRTPGM PGM( mylib/LSTUSRDSE )                 +
              BNDDIR( QC2LE )                        +
              ACTGRP( *NEW )                         +
              USRPRF( *OWNER )                       +
    */
    pgm  ( +
         )
    
       dcl   &msgdta      *char  128
    
       dcl   &NL          *char    1     value( x'15' )
       dcl   &x00         *char    1     value( x'00' )
    
       dcl   &rc          *int
    
       dcl   &eofUSRDSE   *lgl           value( '0' )
    
    
    /* Compile over the IBM-supplied model file... */
       dclf  QADSPUPB
    
    /* List user profiles to a temporary file... */
       dspusrprf   *ALL  output( *OUTFILE ) outfile( QTEMP/LSTUSRDSE )
    
    /* ...and point the compiled file to our temporary one... */
       ovrdbf      QADSPUPB  tofile( QTEMP/LSTUSRDSE )
    
    /* Set a trivial page heading... */
       chgvar           &msgdta       ( +
                                        'List Disabled Profiles' *cat  +
                                        &NL          *cat  +
                                        &NL          *cat  +
                                        &x00               +
                                      )
    
    /* Assign our printed output to QPRINT... */
       ovrdbf      STDOUT  +
                     tofile( QPRINT )  +
                     ovrscope( *JOB ) +
                     share( *YES )
    
    /* Print our trivial heading... */
       callprc        'printf'            ( +
                                            &msgdta        +
                                          ) +
                                    rtnval(&rc )
    
    /* Now loop through our temporary file until EOF... */
    
       dountil  (&eofUSRDSE )
    
          rcvf
          monmsg ( cpf0864 )  exec( do )
             chgvar &eofUSRDSE   '1'
             iterate
          enddo
    
       /* If this one is '*DISABLED', print a line... */
          if ( &UPSTAT *eq '*DISABLED' )  do
             chgvar     &msgdta       ( +
                                        &UPUPRF      *cat  +
                                        '  '         *cat  +
                                        &UPTEXT      *cat  +
                                        &NL          *cat  +
                                        &x00               +
                                      )
             callprc  'printf'            ( +
                                            &msgdta        +
                                          ) +
                                    rtnval(&rc )
          enddo
       enddo
    
    /* Clear away our override... */
       dltovr      STDOUT  lvl( *JOB )
    
    /* ...and get out of here... */
       return
    
    endpgm
    

    Let’s look at the second printf in more detail.

    chgvar     &msgdta       ( +
                               &UPUPRF      *cat  +
                               '  '         *cat  +
                               &UPTEXT      *cat  +
                               &NL          *cat  +
                               &x00               +
                             )
    callprc  'printf'            ( +
                                   &msgdta        +
                                 ) +
                           rtnval(&rc )
    

    The text to print begins with the contents of two variables with an intervening space. The &NL (new line) variable marks the end of a print line. The &X00 variable signals the end of the string.

    The report looks like this:

    List Disabled Profiles
    
    JNAZIUM     Jim Nazium
    PWOGG       Polly Wogg
    SMANDER     Sally Mander
    

    My thanks to Tom for showing us how to use a tool that I suspect lies dormant on most IBM i systems.

    Ted Holt welcomes your comments and questions. Email him through the IT Jungle Contacts page.

    RELATED STORY

    Easy Printing From CL

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Tags:

    Sponsored by
    Krengeltech

    When it comes to consuming web APIs on your IBM i, your options often boil down to one of two things:

    First, you end up having to rely on a variety of open source and non-RPG solutions. This adds developer complexity, taking away time that could have been better spent invested in other projects. Of course, open source software is free, but generally comes at the cost of no professional support, which adds an element of risk in your production environment. RXS is completely professionally supported, and is complemented by a staff of trained IBM i developers who can address your nuanced development challenges, head on.

    Second, if you choose not to pursue an open-source solution, you’re often left having to shake up your current program architecture with proprietary software, external dependencies, and partial RPG implementations – many of which are sub-par compared to RPG-XML Suite’s wide range of features. RXS aims to simplify the efforts of developers with tools like code generators, useful commands, and subprocedures written in 100% RPG – no Java. Because they are entirely RPG, the RXS subprocedures are easy to add to new or existing ILE programs and architecture, helping to cut your development time. RPG-XML Suite offers powerful capabilities in an accessible, easy-to-implement format.

    With RPG-XML Suite, you can accomplish a variety of complex tasks, such as:

    • Calling REST and SOAP web services from your IBM i
    • Offering APIs from your IBM i
    • Creating JSON & XML
    • Parsing JSON & XML
    • Text manipulation, Base64 encoding/decoding, CCSID handling, hashing and encryption functions, and more.

    To try RXS for yourself, we recommend a free proof of concept, which not only gives you access to all of RPG-XML Suite’s subprocedures and utilities but also includes a tailor-made software demonstration that can be used as a starting point for your future API implementations.

    For a free proof of concept, contact us at sales@krengeltech.com, or visit our website for more information.

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Sponsored Links

    System i Developer:  RPG & DB2 Summit - October 4-6 2016 in Chicago. Register now!
    Four Hundred Monitor Calendar:  Latest info on national conferences, local events, & Webinars.
    Manta Technologies Inc.:  The Leader in IBM i Education! Download catalog and take sample sessions!

    Clouds Grow, But Can IBM i Follow? The IBMer Who Decoded Bernie Madoff’s RPG

    Leave a Reply Cancel reply

Volume 16, Number 19 -- August 30, 2016
THIS ISSUE SPONSORED BY:

T.L. Ashford
New Generation Software
WorksRight Software

Table of Contents

  • Easy Printing from CL, Take Two
  • Message Data Data Structures
  • Getting Started With IBM i, .Net, and XMLSERVICE Remote Commands

Content archive

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

Recent Posts

  • IBM i 7.3 TR12: The Non-TR Tech Refresh
  • IBM i Integration Elevates Operational Query and Analytics
  • Simplified IBM i Stack Bundling Ahead Of Subscription Pricing
  • More Price Hikes From IBM, Now For High End Storage
  • Big Blue Readies Power10 And IBM i 7.5 Training for Partners
  • IBM Delivers More Out-of-the-Box Security with IBM i 7.5
  • Groundhog Day For Malware
  • IBM i Community Reacts to IBM i 7.5
  • Four Hundred Monitor, May 11
  • IBM i PTF Guide, Volume 24, Number 19

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 © 2022 IT Jungle

loading Cancel
Post was not sent - check your email addresses!
Email check failed, please try again
Sorry, your blog cannot share posts by email.