Recent Posts

Pages: [1] 2 3 ... 10
1
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.
2
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.
3
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?
4
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. 
5
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.
6
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.
7
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?
8
Prelude Support / Re: Find new Product number
« Last post by DonQuixote on November 01, 2019, 09:01:05 am »
fyi.  After the UPR an entry is made in ALT.XREF.   The ID is the old product number and field 1 is the new number.
9
Prelude Support / Prelude File Purposes
« Last post by precisonline on September 19, 2019, 02:19:17 pm »
Does anyone have any documentation on the various files in Prelude and what they do in the scope of the overall application?  For example BIN.QUEUE and BIN.COMMIT - I know basically what they do but I am having a devil of a time understanding the relationship between them or when they're updated.  Help?
10
Prelude Support / Re: Find new Product number
« Last post by precisonline on August 29, 2019, 12:26:17 pm »
If it's not in alternates, it might be in PROD.CAT.  This is where the keywords are stored for product lookup.
Pages: [1] 2 3 ... 10