Recent Posts

Pages: [1] 2 3 ... 10
1
Prelude Support / DDF.DEFN
« Last post by DonQuixote on May 07, 2021, 04:10:14 PM »


Using DDF.DEFN tool...
Is there any way to get common variables in the Header?
Like Date and Time? 
2
Can you send me a resume please?
3
Big Thoughts / Cool Ideas / This is not the End. This must be a new Beginning.
« Last post by DonQuixote on December 13, 2020, 10:53:06 PM »
I am eternally optimistic.  I see the year 2020 as a chance for a new start; even though my career has been cut short by the economic downturn of Covid-19.  I have been a U2 programmer analyst for over 30 years in 9 different industries and most importantly, I've enjoyed my work.  I'm versatile, still anxious to learn, and very pleasant to be around.  I enjoy a challenge, embrace responsibility, and in 2016 completed a Masters degree in Project management and certified as a PMP.   Right now, I need a job.  Any constructive advice, direction, and encouragement would be appreciated.  I wish you all a Merry Christmas and new beginnings in 2021.
4
Rants & Raves / Re: COVID-19
« Last post by precisonline on July 06, 2020, 02:31:35 PM »
Well stated man, and thank you for sharing.  We are all very concerned about everyone so close to us, irrespective of political affiliation, who have been touched (or killed) by this terrible thing.  I echo your sentiments to stay safe, mask up when you can, and help us all back on a road to recovery.
5
Announcements / Re: I'm looking for a Job
« Last post by precisonline on July 06, 2020, 02:29:42 PM »
Hey, it's a tough market all the way around, especially with Rocket offshoring all their work and most of their people.  You might check into Zumasys; Paul is always looking for quality people, and I'd be happy to give you a good reference.
6
Announcements / I'm looking for a Job
« Last post by DonQuixote on April 25, 2020, 07:28:30 PM »
Any suggests for finding a job in the MultiValue/Pick/Universe/Unidata arena?
7
Rants & Raves / COVID-19
« Last post by DonQuixote on April 25, 2020, 07:23:38 PM »
This is an unprecedented time.  The COVID-19, so much unknown; this is what scares us.  History says that WWI ended because so many people on both sides got the Spanish-flu and died; more by the flu than the war.  Industry is standing still and many businesses will never come back.  I hope the conflicts around the world will stop; because they are so trivial compared to the pandemic.  I hope that even though the churches have closed that people fall to their knees in prayer because of the pandemic.  Like 9:11 the world will never be the same again.  Please, make the world a better place.  Stay healthy and be safe. 
8
Prelude Support / Re: Bug in VSI-FAX subroutine
« Last post by Charles Sasaki-Skopp on November 18, 2019, 01:53:05 PM »
Old topic, but useful for something I found in my system. Replying in case it comes up for anyone else, but suggested fix for this would be to modify the faxing routine SEND.FAX3 to clear PARAM after using it to set the variable DOC.FLAG:

*--------------------------------------------------------------------------
* Initialize Constants
*--------------------------------------------------------------------------
*
      DOC.FLAG=FIELD(PARAM,",",1)
      PARAM = '' ;*Clear PARAM so it doesn't get recycled* CAS*20191118

This is a fairly standard pattern in ADS software. Doing this will allow all the fax routines like PRINT.STM.FAX, INVOICE.FORMAT etc. to function properly without having to modify the PARAM block for each one.
9
Prelude Support / Re: Output to the HOLD file
« Last post by Tom Pellitieri on November 04, 2019, 09:48:28 AM »
I wrote this subroutine years ago.  I call it from BASIC programs that need to change printer settings.

PROGRAM CEI.SETPTR
Code: [Select]
      SUBROUTINE CEI.SETPTR(MODE,QUEUE,COPIES,UID)
*
* Call SETPTR with the appropriate options
* MODE: 1=Print, 3=Hold/Suppress, 6=Hold/Print
* QUEUE: Print Queue   COPIES: Number of Copies
* UID:  ID tag for BANNER.  Make unique if UID ends in "-"
*
* Adjust parameters if needed.  Use MODE 3 if invalid.
* If no queue specified, use {default}, MODE 3.  Make certain
* we have a positive integer number of copies, and check
* for a BANNER UNIQUE request.
*
      MOD1 = 3
      Q = QUEUE
      CP = COPIES + 0
      UD = TRIM(UID)
      IF MODE = 1 THEN MOD1 = 1
      IF MODE = 6 THEN MOD1 = 6
      IF TRIM(QUEUE) = "" THEN MOD1 = 3 ; Q = "{default}"
      IF CP < 1 THEN CP = 1
      CP = INT(CP)
      IF MOD1 > 1 AND UD = "" THEN UD = "ZZZZ-"
      BU = 0
      IF UD[LEN(UD),1] = "-" THEN BU = 1 ; UD = UD[1,LEN(UD)-1]
      IF MOD1 = 3 AND MODE # 3 THEN BU = 1
*
* Set up the printer
*
      CMD = "SETPTR 0,133,65,0,0,":MOD1
      CMD = CMD:",NFMT,NOEJECT,NOMESSAGE,BRIEF,DEST ":Q
      CMD = CMD:",COPIES ":CP
      IF MOD1 = 1 THEN CMD = CMD:",NHEAD" ELSE
         CMD = CMD:",BANNER "
         IF BU THEN CMD = CMD:"UNIQUE "
         CMD = CMD:UD
      END
      EXECUTE CMD CAPTURING MSG RETURNING ERR
      RETURN

I also have two INCLUDE file, PTR.PUSH, and PTR.POP, to save and restore the existing printer settings.

INCLUDE PTR.PUSH
Code: [Select]
* Save current Form Queue assignment in ZZZSVQ
*
      ZZZSVQ = GETPTR(0)

INCLUDE PTR.POP
Code: [Select]
* Restore Form Queue assignment from ZZZSVQ
*
      EXECUTE "SETPTR ":ZZZSVQ:",BRIEF" CAPTURING ZMSG RETURNING ZERR

Typical usage would be:

INCLUDE MYPROGS PTR.PUSH
CALL CEI.SETPTR(3,"MYPRT",1,"MYHOLD")
EXECUTE "SORT MYFILE … LPTR" CAPTURING TXTOUT RETURNING ERROUT
INCLUDE MYPROGS PTR.POP


Hope this helps.
10
Prelude Support / Output to the HOLD file
« Last post by DonQuixote on November 01, 2019, 09:07:47 AM »
I'm trying to set output to the HOLD file.
In Process Definition Paragraph (/PD.P)
EXECUTE ">:SETPTR ,,,,,3,BANNER holdName"
EXECUTE "B:basicprogram"

The output in the basic program is not going to the HOLD file as expect.
I've tried the command inside the basic program; that too is not working.
It still goes to the printer.

What does work is a "PA" type process in the VOC that stacks the commands.
My problem there is I can't figure out how to make the 'HOLD NAME' something unique; date & time appended to name.
Any suggestions?
Pages: [1] 2 3 ... 10