block input

Posted by Steven Hagen on January 02, 2013 at 13:00:26:

Jim Thompson Silk is running Comet .469/12.09.

All programs are compiled under Comet 16.

Programs work differently when run from a Win 32 PC with a /32 switch then when run without the /32 switch.
It has to do with Block input.

See my code from the Memo Entry Program below.

Format 3230 is Input (see format below)

3230 FORMAT _
MSM1$;MSM2$;_
MJOB$;MSHIPVIA$;_
MSPECNBR$;MTRACKNO$;_
MSTYPEH$;MTAXPCT;_
MDATE$;MRDATE$;_
OPPRNT$;MOPINIT$;_
MPCOMM$

If Comet is launched with the /32 bit switch and field MSPECNBR$ is blank, LUN C1A is read. When Comet is not run with the /32 bit switch and field MSPECNBR$ is blank, LUN C1A is not read.

IF MSPECNBR$ NE ' ' THEN
SPNAME$=''
READ(C1A,0103) KEY=MSPECNBR$,EXCP=2350
2350 MSNBR$=SPCSNBR$ & REPID$=SPCSNBR$
GOSUB 5800
PRINT(0,3210)
IF SPNAME$ EQ '' POS = 13 & LINE = 10 & INPFLG = 1
ENDIF

I tested the program on my Development System running Comet .458/12.03. When run from a 32 bit Node, the program executed properly with and without the /32 switch.

I solved the problem for Jim Thompson by changing the IF Statement to

IF STRIP(MSPECNBR$) NE '' THEN

Follow Ups:

• Re: block input Barbara Brazil 14:00:14 01/02/13 (4)
  • Re: block input Tom Fulton 07:03:00 01/03/13 (3)
    • Re: block input Barbara Brazil 11:51:35 01/03/13 (2)
      • Re: block input Tom Fulton 14:36:41 01/03/13 (1)
        • Re: block input Barbara Brazil 11:55:03 01/04/13 (0)

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.