Free Stuff

The following source code is provided as is. No warrenty is given or implied. Use it at your own risk. If you have questions, or need help modifying it, we would be more than happy to help you out. The source is free to use and distribute as long as you include the original copyright notice.
 

Generic String Procedures

  • The following source contains a generic string module with the following procedures.
    • CVTTOU - Convert a string to upper case. You can specify an optional CCSID parameter on the procedure call.
    • CVTTOL - Convert a string to lower case. You can specify an optional CCSID parameter on the procedure call.
    • GENSTR - Return if a string has a leading or trailing asterics (marker), or both. A marker character can be specified as an optional paraameter. An asterics(*) is used otherwise.
    • RNDSTR - Return a randon string of characters.
    • RNDNBR - Return a random number.
  • Source Members:
    • M_STR - The module containing the above procedures. Just use an option 15, or CRTRPGMOD to create.
    • M_STR.H - Module prototype copy book. Copy this source member into your program in order to use the procedures.
    • M_STR_CCB1 - This is a generic constant copy bood needed for the procedures contained in M_STR module.
    • M_STR_SCB1 - This is a generic data structure template copy book needed for the procedures contained in the M_STR module.
  • To install:
    • Click on the download icon and save the SAVF to your computer.
    • FTP to a SAVF on your System i (AS400) using binary mode.
    • RSTOBJ #FREESRC to the desired library.
    • Object saved at release V5R3M0.
 

List Spooled Files Using QUSLSPL API

  • The following source contains a the basic code needed to list one or more spooled files using the QUSLSPL API. The program also creates, and deletes a user space which it uses to hold the information returned from the API.
  • Rename the source member to something else.
  • Compile the source member into a program.
 
  • Free stuff
 

List Jobs Using QUSLJOB API

  • The following source contains a the basic code needed to list one or more jobs using the QUSLJOB API. The program also createss, and deletes a user space which it uses to hold the information returned from the API.
  • Rename the source member to something else.
  • Compile the source member into a program.
 
  • Free stuff