When we were updating a VOC item that generates some reports, we started receiving a B703, variable exceeds maximum length, error in RTP18. From what I can gather, RTP18 is the TCL command parser.

Any one of the group of commands, when executed by itself, runs just fine. It appears to be a cumulative issue. For the most part, we are just doing straight select/list combinations. The one "trick" is that I have a small program, based on someone's posting to this list, called IF_ANY_THEN. Basically, it checks to see if there is an active select, and if there is then it processes the command. If there is not an active select, it doesn't process the command. IF_ANY_THEN is catalogued as a VERB1F entry in VOC so that it will pass through any active selects. I tried adding a flush and garbagecollect, and I also tried nulling @Sentence. These did not help the issue at all.

Below, I am posting the entire entry for the VOC and also the source code for IF_ANY_THEN. If anyone has any ideas, I would appreciate hearing them. Also, the HPLASER command that you see executed is jsut a little program that sends printer format commands to the print stream.

I apologize in advance for the length of this post.

* VOC Command that is executed *

TCL

PDISK \THDATA\REPORTS\MC2_NE.RPT (O)

HPLASER C 6 3

SELECT NEW_ENROLLMENT WITH F_MED_CODE EQ '1391' '1392' '1393' '1395' AND WITH STATUS NE "T" AND WITH FULL_PART EQ "F" (S)

IF_ANY_THEN LIST NEW_ENROLLMENT EMP_NO JUSTLEN 6 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO F_MED_CODE F_MED_DATE F_MED_TERM_DATE STATUS COLHEAD "ST" HIRE_DATE LOA_DATE CITY STATE CITY_STATE COLHEAD "LOC CITY - STATE" GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "BLUE CROSS BLUE SHIELD OF MONTANA AS OF 'D'" FOOTING "NEW_ENROLLMENT" ID-SUPP (SP)

SELECT COBRA WITH MED_CODE EQ '1391' '1392' '1393' '1395' AND WITH STATUS EQ "A" (S)

IF_ANY_THEN LIST COBRA COBRA_NO JUSTLEN 8 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO MED_CODE MED_EFF_DATE MED_TERM_DATE STATUS COLHEAD "ST" NEW_ENROLL_HIRE_DATE NEW_ENROLL_LOA_DATE CITY STATE NEW_ENROLL_CITY_STATE COLHEAD "LOC - CITY/STATE" NEW_ENROLL_GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "COBRA'L'BLUE CROSS BLUE SHIELD OF MONTANNA AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT NEW_ENROLLMENT WITH F_MED_CODE EQ '1411' '1412' '1413' '1415' AND WITH STATUS NE "T" AND WITH FULL_PART EQ "F" (S)

IF_ANY_THEN LIST NEW_ENROLLMENT EMP_NO JUSTLEN 6 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO F_MED_CODE F_MED_DATE F_MED_TERM_DATE STATUS COLHEAD "ST" HIRE_DATE LOA_DATE CITY STATE CITY_STATE COLHEAD "LOC CITY - STATE" GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "MERIT HEALTHPLAN OF ALABAMA AS OF 'D'" FOOTING "NEW_ENROLLMENT" ID-SUPP (SP)

SELECT COBRA WITH MED_CODE EQ '1411' '1412' '1413' '1415' AND WITH STATUS EQ "A" (S)

IF_ANY_THEN LIST COBRA COBRA_NO JUSTLEN 8 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO MED_CODE MED_EFF_DATE MED_TERM_DATE STATUS COLHEAD "ST" NEW_ENROLL_HIRE_DATE NEW_ENROLL_LOA_DATE CITY STATE NEW_ENROLL_CITY_STATE COLHEAD "LOC - CITY/STATE" NEW_ENROLL_GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "COBRA'L'MERIT HEALTHPLAN OF ALABAMA AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT NEW_ENROLLMENT WITH F_MED_CODE EQ '1451' '1452' '1453' '1455' AND WITH STATUS NE "T" AND WITH FULL_PART EQ "F" (S)

IF_ANY_THEN LIST NEW_ENROLLMENT EMP_NO JUSTLEN 6 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO F_MED_CODE F_MED_DATE F_MED_TERM_DATE STATUS COLHEAD "ST" HIRE_DATE LOA_DATE CITY STATE CITY_STATE COLHEAD "LOC CITY - STATE" GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "HEALTHSOURCE INC. OF NORTH CAROLINA AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT COBRA WITH MED_CODE EQ '1451' '1452' '1453' '1455' AND WITH STATUS EQ "A" (S)

IF_ANY_THEN LIST COBRA COBRA_NO JUSTLEN 8 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO MED_CODE MED_EFF_DATE MED_TERM_DATE STATUS COLHEAD "ST" NEW_ENROLL_HIRE_DATE NEW_ENROLL_LOA_DATE CITY STATE NEW_ENROLL_CITY_STATE COLHEAD "LOC - CITY/STATE" NEW_ENROLL_GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "COBRA'L'HEALTHSOURCE INC. OF NORTH CAROLINA AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT NEW_ENROLLMENT WITH F_MED_CODE EQ '1461' '1462' '1463' '1465' AND WITH STATUS NE "T" AND WITH FULL_PART EQ "F" (S)

IF_ANY_THEN LIST NEW_ENROLLMENT EMP_NO JUSTLEN 6 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO F_MED_CODE F_MED_DATE F_MED_TERM_DATE STATUS COLHEAD "ST" HIRE_DATE LOA_DATE CITY STATE CITY_STATE COLHEAD "LOC CITY - STATE" GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "MOHAWK VALLEY PHYSICIANS (NEW YORK) AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT COBRA WITH MED_CODE EQ '1461' '1462' '1463' '1465' AND WITH STATUS EQ "A" (S)

IF_ANY_THEN LIST COBRA COBRA_NO JUSTLEN 8 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO MED_CODE MED_EFF_DATE MED_TERM_DATE STATUS COLHEAD "ST" NEW_ENROLL_HIRE_DATE NEW_ENROLL_LOA_DATE CITY STATE NEW_ENROLL_CITY_STATE COLHEAD "LOC - CITY/STATE" NEW_ENROLL_GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "COBRA'L'MOHAWK VALLEY PHYSICIANS (NEW YORK) AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT NEW_ENROLLMENT WITH F_MED_CODE EQ '1471' '1472' '1473' '1475' AND WITH STATUS NE "T" AND WITH FULL_PART EQ "F" (S)

IF_ANY_THEN LIST NEW_ENROLLMENT EMP_NO JUSTLEN 6 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO F_MED_CODE F_MED_DATE F_MED_TERM_DATE STATUS COLHEAD "ST" HIRE_DATE LOA_DATE CITY STATE CITY_STATE COLHEAD "LOC CITY - STATE" GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "INDEPENDENT HEALTH (NEW YORK) AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT COBRA WITH MED_CODE EQ '1471' '1472' '1473' '1475' AND WITH STATUS EQ "A" (S)

IF_ANY_THEN LIST COBRA COBRA_NO JUSTLEN 8 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO MED_CODE MED_EFF_DATE MED_TERM_DATE STATUS COLHEAD "ST" NEW_ENROLL_HIRE_DATE NEW_ENROLL_LOA_DATE CITY STATE NEW_ENROLL_CITY_STATE COLHEAD "LOC - CITY/STATE" NEW_ENROLL_GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "COBRA'L'INDEPENDENT HEALTH (NEW YORK) AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT NEW_ENROLLMENT WITH F_MED_CODE EQ '1491' '1492' '1493' '1495' AND WITH STATUS NE "T" AND WITH FULL_PART EQ "F" (S)

IF_ANY_THEN LIST NEW_ENROLLMENT EMP_NO JUSTLEN 6 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO F_MED_CODE F_MED_DATE F_MED_TERM_DATE STATUS COLHEAD "ST" HIRE_DATE LOA_DATE CITY STATE CITY_STATE COLHEAD "LOC CITY - STATE" GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "GROUP HEALTH COOPERATIVE (WASHINGTON) AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT COBRA WITH MED_CODE EQ '1491' '1492' '1493' '1495' AND WITH STATUS EQ "A" (S)

IF_ANY_THEN LIST COBRA COBRA_NO JUSTLEN 8 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO MED_CODE MED_EFF_DATE MED_TERM_DATE STATUS COLHEAD "ST" NEW_ENROLL_HIRE_DATE NEW_ENROLL_LOA_DATE CITY STATE NEW_ENROLL_CITY_STATE COLHEAD "LOC - CITY/STATE" NEW_ENROLL_GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "COBRA'L'GROUP HEALTH COOPERATIVE (WASHINGTON) AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT NEW_ENROLLMENT WITH F_MED_CODE EQ '1401' '1402' '1403' '1405' AND WITH STATUS NE "T" AND WITH FULL_PART EQ "F" (S)

IF_ANY_THEN LIST NEW_ENROLLMENT EMP_NO JUSTLEN 6 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO F_MED_CODE F_MED_DATE F_MED_TERM_DATE STATUS COLHEAD "ST" HIRE_DATE LOA_DATE CITY STATE CITY_STATE COLHEAD "LOC CITY - STATE" GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "US HEALTHCARE (Pittsburgh, PA) AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT COBRA WITH MED_CODE EQ '1401' '1402' '1403' '1405' AND WITH STATUS EQ "A" (S)

IF_ANY_THEN LIST COBRA COBRA_NO JUSTLEN 8 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO MED_CODE MED_EFF_DATE MED_TERM_DATE STATUS COLHEAD "ST" NEW_ENROLL_HIRE_DATE NEW_ENROLL_LOA_DATE CITY STATE NEW_ENROLL_CITY_STATE COLHEAD "LOC - CITY/STATE" NEW_ENROLL_GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "COBRA'L'US HEALTHCARE (Pittsburgh, PA) AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT NEW_ENROLLMENT WITH F_MED_CODE EQ '1311' '1312' '1313' '1315' AND WITH STATUS NE "T" AND WITH FULL_PART EQ "F" (S)

IF_ANY_THEN LIST NEW_ENROLLMENT EMP_NO JUSTLEN 6 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO F_MED_CODE F_MED_DATE F_MED_TERM_DATE STATUS COLHEAD "ST" HIRE_DATE LOA_DATE CITY STATE CITY_STATE COLHEAD "LOC CITY - STATE" GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "KAISER (OREGON) AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

SELECT COBRA WITH MED_CODE EQ '1311' '1312' '1313' '1315' AND WITH STATUS EQ "A" (S)

IF_ANY_THEN LIST COBRA COBRA_NO JUSTLEN 8 TOTAL CNT COLHEAD "CNT" JUSTLEN 3 NAME JUSTLEN "15" SOC_SEC_NO MED_CODE MED_EFF_DATE MED_TERM_DATE STATUS COLHEAD "ST" NEW_ENROLL_HIRE_DATE NEW_ENROLL_LOA_DATE CITY STATE NEW_ENROLL_CITY_STATE COLHEAD "LOC - CITY/STATE" NEW_ENROLL_GROUP COLHEAD "GRP" BY STATUS BY NAME HEADING "COBRA'L'KAISER (OREGON) AS OF 'D'" FOOTING "NEW ENROLLMENT" ID-SUPP (SP)

PDISK PRN

PC EXIT COPY \THDATA\REPORTS\MC2_NE.RPT LPT1

* IF_ANY_THEN program listing *

Expendable Subroutine IF_ANY_THEN

/*

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

       Author:

         Date:

      Purpose:

Intellectual property notice: This program code is the sole and exclusive

property of Greyhound Lines, Inc.

Theory of Operation:

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

*/

* Inserts & Equates

$INSERT GLI_INCLUDE,GLI_MISC_EQUATES

EQU ProgramName$ TO 'IF_ANY_THEN'

* Declares

Declare Subroutine Msg, FSMsg, Catalyst

Declare Function Unassigned

*——————–]] P r o g r a m T o p «—————————–

Command=@Sentence12,999

Silent=False$

If Index(Command, "(", 1) Then

  Opts=Command-1,"B("

  If Index(Opts, "S", 1) Then

      Silent=True$

  End

End

If @RecCount Then

  Perform Command

End Else

  If Silent Else Msg("No Records were selected.")

End

@Sentence=Null$

Flush

GarbageCollect

Return

Again, thanks for any assistance.

[email protected]

Quick and dirty possibility - use Group type fields in place of all those long lists - so define a G type called say DISP_FIELDS and put all the standard disply field in there etc.

The Sprezzatura Group

World Leaders in all things RevSoft

Thanks for the info. That's the conclusion that I came to. I realized I didn't specify the version, which is 3.02. So I'm pretty sure that I'm running into a command length issue with the TCL. And, unfortunately, we can't upgrade to 3.12.

For posterity's sake, I will post my results once I've finished creating the group fields.

[email protected]

View this thread on the forum...