IBMi (AS400) fans only ‘ Another way to manage spooled files

-

New feature: 
WSF F18=Search string into listed files
F18=Search string into listed files




WSF utility, works like WRKSPLF but...


New feature: Searching a string into spooled files



New feature: Generate a PDF from a spooled file










#IBMiSample
Each IBMi user knows they run the most efficient system. All others just have too much money.


If you are interested in this program Download WSF *SAVF (New version with Create PDF option)

Need some help loading the *savf? 
HOW TO GET *SAVF FROM YOUR DESKTOP TO YOUR IBM I SYSTEM



Users often have many spool-file rows.
How to quickly find the last done?
how to quickly find the one produced on October 15th?
These and other options are just a click away.


The WRKSPLF command does not show spool-file rows sorted by
Creation-Date/Creation-Time, so the last one is not the first one in the list.
I thought a different way of looking at spooled-file rows might be useful.

In this program (WSF) the spool-file rows appears in order of
Creation-Date/Creation-Time, with the last one at the top of the list.

I also added the ability to filter each column, for example to see only the rows in HOLD status.

I also added the possibility to sort each column with F16 or double-click on the column.

I also added the ability to generate a PDF.


I also added... find out for yourself.


Example of F18=Search string into listed files

WSF F18=Search string into listed files



Example of filter on Status=HELD

WSF version of wrksplf Work with Spooled Files




Example of filter on Hour and minute=13:59

WSF version of wrksplf Work with Spooled Files




Example of order By Filename

WSF version of wrksplf Work with Spooled Files


Last but not last, F4=Delete All for user to finally keep the print queues clean for each user

WSF version of wrksplf Work with Spooled Files


If you have a profile on PUB400, type 
ADDLIBLE FFD11

then type
WSF (Enter)

to test my WSF (WorkSpooledFiles) utility.

Do you like it? Contact me at aldo.succi.63 (@) gmail.com


If you are interested in this program Download WSF *SAVF (New version with Create PDF option and Search string into listed files)

Need some help loading the *savf? 
HOW TO GET *SAVF FROM YOUR DESKTOP TO YOUR IBM I SYSTEM

I appreciate all the comments made on this blog.


#PUB400
#IBMiSample

Comments

Post a Comment

Popular posts from this blog

IBMi (AS400) fans only ‘ Memories (IBM Coding Forms)

-
Image
 IBM Coding Forms Oh mom! No, not my sweet, sweet natural mom, but IBM, the mother of us RPG programmers. The adventure with IBM began way back in 1992 when my friend said to me: "They need smart guys at a software house in Cesena!" And thanks to my dear friend, I ended up there, amidst the hills, good wine, Piadina Romagnola, and fresh pasta! It was December, and the company was an IBM partner. They asked me to take a course followed by an exam at IBM in Bologna. If I passed the test, they would hire me. Boom! Just 20 days later, there I was, at work! I started tinkering with the legendary IBM S/36 - today considered an informatics relic, but I swear, back then, it was a powerful machine! The first program I wrote, believe it or not, was on paper provided by the ancient scribes of IBM. Yes, I handwrote a program on paper. It felt more like a grandma's recipe than the result of my hard-earned studies! The "boss" said: "It looks decent, but load it onto the
Read more

IBMi (AS400) fans only ' SQLCODE values: Dear readers, unleash your suggestions!

-
Image
This RPG code uses a DOU loop to fetch data from a cursor named C1 until the SQLCODE is not equal to 0, indicating the end of the recordset. Inside the loop, it clears a data structure (RecordDsC1), fetches data into it, and then checks if the fetch was successful. If successful, it assigns values and writes to an output file. After the loop, it checks if the SQLCODE is not 100, indicating unexpected termination, and displays a warning message if needed. // Loop until SQLCODE is not equal to 0 dow sqlCode = 0 ;   // Clear the data structure RecordDsC1   clear RecordDsC1;   // Fetch data into RecordDsC1 using cursor C1   exec sql fetch C1 into :RecordDsC1;   // If fetch was successful (SQLCODE = 0)   if sqlcode = 0 ;     // Assign values and write to output     W1QUEU = rDsW1QUEU;     write W1SF1;   endif; enddo; // Check if SQLCODE is not 100 (indicating unexpected termination) if sqlCode <> 100;   // Build a warning message   wMsg='Warning: +    The selection has terminated
Read more