As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.
Join the TIBCO Community TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.
From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
Request access to the private WebFOCUS User Group (login required) to network with fellow members.
Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.
I AM GETTING AN ERROR FOC957) FORMAT MISMATCH FOR THE FIELD: IGROUP
TABLE FILE EGRPPROD BY LOWEST EGRPPROD.SEG01.AMGRIE BY LOWEST EGRPPROD.SEG01.GRPCIE BY LOWEST EGRPPROD.SEG01.ITEMNO BY LOWEST EGRPPROD.SEG01.IEDESC BY LOWEST EGRPPROD.SEG01.ICODE2 BY LOWEST EGRPPROD.SEG01.IGROUP BY LOWEST EGRPPROD.SEG01.ISGRUP ON TABLE SET PAGE-NUM NOLEAD ON TABLE SET BYDISPLAY ON ON TABLE NOTOTAL ON TABLE HOLD AS EPDATA FORMAT FOCUS INDEX 'EGRPPROD.SEG01.AMGRIE' 'EGRPPROD.SEG01.GRPCIE' 'EGRPPROD.SEG01.ITEMNO' ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * $ ENDSTYLE MORE FILE EGRPPROD MORE FILE ESGRPPROD MORE FILE ECATPROD END
ANYONE OF THE FILES BEING MERGED MAY BE AN EMPTY FILE DEPENDING ON THE SELECTION MADE WHEN REQUESTING THE REPORT TO RUN INCLUDING THE INITIAL FILE
I HAVE EMPTYREPORT SET TO ON
THANK YOUThis message has been edited. Last edited by: Kathleen Butler,
SET EMPTYREPORT = ON
TABLE FILE ACCOUNT_MANAGER_HOLD
BY LOWEST ACCOUNT_MANAGER_HOLD.ACCOUNT_MANAGER_HOLD.KFLDTD
BY LOWEST ACCOUNT_MANAGER_HOLD.ACCOUNT_MANAGER_HOLD.DESCDT
WHERE ACCOUNT_MANAGER_HOLD.ACCOUNT_MANAGER_HOLD.KFLDTD EQ &KFLDTD.(OR(FIND ACCOUNT_MANAGER_HOLD.ACCOUNT_MANAGER_HOLD.KFLDTD,ACCOUNT_MANAGER_HOLD.ACCOUNT_MANAGER_HOLD.DESCDT IN account_manager_hold)).KFLDTD:.;
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS AM_CODE FORMAT FOCUS INDEX 'ACCOUNT_MANAGER_HOLD.ACCOUNT_MANAGER_HOLD.KFLDTD'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER AM_CODE.SEG01.KFLDTD IN AM_CODE TO MULTIPLE JVAPIEP.JVAPIEP.AMGRIE
IN JVAPIEP TAG J7 AS J7
END
TABLE FILE AM_CODE
BY LOWEST J7.JVAPIEP.AMGRIE
BY J7.JVAPIEP.GRPCIE
BY LOWEST J7.JVAPIEP.INEXIE
BY LOWEST J7.JVAPIEP.ITGRIE
BY LOWEST J7.JVAPIEP.ITSGIE
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS IGRP FORMAT FOCUS INDEX 'J7.JVAPIEP.AMGRIE' 'J7.JVAPIEP.ITGRIE' 'J7.JVAPIEP.ITSGIE'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
TABLE FILE AM_CODE
BY LOWEST J7.JVAPIEP.AMGRIE
BY J7.JVAPIEP.GRPCIE
BY LOWEST J7.JVAPIEP.INEXIE
BY LOWEST J7.JVAPIEP.ITGRIE
BY LOWEST J7.JVAPIEP.ITSGIE
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS ISGRP FORMAT FOCUS INDEX 'J7.JVAPIEP.ITSGIE'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER IGRP.SEG01.ITGRIE IN IGRP TO MULTIPLE STG_JF_ITEM.STG_JF_ITEM.IGROUP
IN STG_JF_ITEM TAG J8 AS J8
END
TABLE FILE IGRP
BY LOWEST IGRP.SEG01.AMGRIE
BY LOWEST IGRP.SEG01.GRPCIE
BY LOWEST J8.STG_JF_ITEM.ITEMNO
BY LOWEST J8.STG_JF_ITEM.IEDESC
BY J8.STG_JF_ITEM.ICODE2
BY LOWEST J8.STG_JF_ITEM.IGROUP
BY LOWEST J8.STG_JF_ITEM.ISGRUP
WHERE ( IGRP.SEG01.INEXIE EQ 'I' ) AND ( J8.STG_JF_ITEM.ICOMP EQ 'A' ) AND ( J8.STG_JF_ITEM.ILOC EQ '1' ) AND ( IGRP.SEG01.ITSGIE EQ ' ' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS IGRPDATA FORMAT FOCUS
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER ISGRP.SEG01.ITSGIE AND ISGRP.SEG01.ITGRIE IN ISGRP TO MULTIPLE
STG_JF_ITEM.STG_JF_ITEM.ISGRUP AND STG_JF_ITEM.STG_JF_ITEM.IGROUP
IN STG_JF_ITEM TAG J23 AS J23
END
TABLE FILE ISGRP
BY LOWEST ISGRP.SEG01.AMGRIE
BY LOWEST ISGRP.SEG01.GRPCIE
BY LOWEST J23.STG_JF_ITEM.ITEMNO
BY LOWEST J23.STG_JF_ITEM.IEDESC
BY J23.STG_JF_ITEM.ICODE2
BY J23.STG_JF_ITEM.IGROUP
BY J23.STG_JF_ITEM.ISGRUP
WHERE ( J23.STG_JF_ITEM.ICOMP EQ 'A' ) AND ( J23.STG_JF_ITEM.ILOC EQ '1' ) AND ( ISGRP.SEG01.INEXIE EQ 'I' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS ISGRPDATA FORMAT FOCUS
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER AM_CODE.SEG01.KFLDTD IN AM_CODE TO MULTIPLE JVAPIEP.JVAPIEP.AMGRIE
IN JVAPIEP TAG J9 AS J9
END
TABLE FILE AM_CODE
BY LOWEST J7.JVAPIEP.AMGRIE
BY J7.JVAPIEP.GRPCIE
BY LOWEST J7.JVAPIEP.CATGIE
WHERE ( J7.JVAPIEP.INEXIE EQ 'I' ) AND ( J7.JVAPIEP.CATGIE NE ' ' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS ICAT FORMAT FOCUS INDEX 'J7.JVAPIEP.CATGIE'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER ICAT.SEG01.CATGIE IN ICAT TO MULTIPLE STG_JF_ITEM.STG_JF_ITEM.ICODE2
IN STG_JF_ITEM TAG J10 AS J10
END
TABLE FILE ICAT
BY LOWEST ICAT.SEG01.AMGRIE
BY ICAT.SEG01.GRPCIE
BY LOWEST J10.STG_JF_ITEM.ITEMNO
BY LOWEST J10.STG_JF_ITEM.IEDESC
BY J10.STG_JF_ITEM.ICODE2
BY LOWEST J10.STG_JF_ITEM.IGROUP
BY LOWEST J10.STG_JF_ITEM.ISGRUP
WHERE ( J10.STG_JF_ITEM.ICOMP EQ 'A' ) AND ( J10.STG_JF_ITEM.ILOC EQ '1' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS ICATPROD FORMAT FOCUS INDEX 'ICAT.SEG01.AMGRIE' 'J10.STG_JF_ITEM.ITEMNO'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER AM_CODE.SEG01.KFLDTD IN AM_CODE TO MULTIPLE JVAPIEP.JVAPIEP.AMGRIE
IN JVAPIEP TAG J11 AS J11
END
TABLE FILE AM_CODE
BY LOWEST J7.JVAPIEP.AMGRIE
BY J7.JVAPIEP.GRPCIE
BY LOWEST J7.JVAPIEP.ITEMIE
WHERE ( J7.JVAPIEP.INEXIE EQ 'I' ) AND ( J7.JVAPIEP.ITEMIE NE ' ' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS IPROD FORMAT FOCUS INDEX 'J7.JVAPIEP.AMGRIE' 'J7.JVAPIEP.ITEMIE'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER IPROD.SEG01.ITEMIE IN IPROD TO MULTIPLE STG_JF_ITEM.STG_JF_ITEM.ITEMNO
IN STG_JF_ITEM TAG J12 AS J12
END
TABLE FILE IPROD
BY LOWEST IPROD.SEG01.AMGRIE
BY IPROD.SEG01.GRPCIE
BY LOWEST J12.STG_JF_ITEM.ITEMNO
BY LOWEST J12.STG_JF_ITEM.IEDESC
BY J12.STG_JF_ITEM.ICODE2
BY LOWEST J12.STG_JF_ITEM.IGROUP
BY LOWEST J12.STG_JF_ITEM.ISGRUP
WHERE ( J12.STG_JF_ITEM.ICOMP EQ 'A' ) AND ( J12.STG_JF_ITEM.ILOC EQ '1' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS IPRODPROD FORMAT FOCUS INDEX 'IPROD.SEG01.AMGRIE' 'J12.STG_JF_ITEM.ITEMNO'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
MORE
FILE IGRPDATA
MORE
FILE ISGRPDATA
MORE
FILE ICATPROD
END
JOIN
INNER AM_CODE.SEG01.KFLDTD IN AM_CODE TO MULTIPLE JVAPIEP.JVAPIEP.AMGRIE
IN JVAPIEP TAG J13 AS J13
END
TABLE FILE AM_CODE
BY LOWEST J7.JVAPIEP.AMGRIE
BY J7.JVAPIEP.GRPCIE
BY LOWEST J7.JVAPIEP.INEXIE
BY LOWEST J7.JVAPIEP.ITGRIE
BY LOWEST J7.JVAPIEP.ITSGIE
WHERE ( J7.JVAPIEP.INEXIE EQ 'E' ) AND ( J7.JVAPIEP.ITGRIE NE ' ' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE SET FORMULTIPLE ON
ON TABLE NOTOTAL
ON TABLE HOLD AS EGRP FORMAT FOCUS INDEX 'J7.JVAPIEP.AMGRIE' 'J7.JVAPIEP.ITGRIE' 'J7.JVAPIEP.ITSGIE'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER EGRP.SEG01.ITGRIE IN EGRP TO MULTIPLE STG_JF_ITEM.STG_JF_ITEM.IGROUP
IN STG_JF_ITEM TAG J14 AS J14
END
TABLE FILE EGRP
BY LOWEST EGRP.SEG01.AMGRIE
BY EGRP.SEG01.GRPCIE
BY LOWEST J14.STG_JF_ITEM.ITEMNO
BY LOWEST J14.STG_JF_ITEM.IEDESC
BY LOWEST J14.STG_JF_ITEM.ICODE2
BY LOWEST J14.STG_JF_ITEM.IGROUP
BY LOWEST J14.STG_JF_ITEM.ISGRUP
WHERE ( J14.STG_JF_ITEM.ICOMP EQ 'A' ) AND ( J14.STG_JF_ITEM.ILOC EQ '1' ) AND ( EGRP.SEG01.ITSGIE EQ ' ' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS EGRPPROD FORMAT FOCUS INDEX 'EGRP.SEG01.AMGRIE' 'J14.STG_JF_ITEM.ITEMNO'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER AM_CODE.SEG01.KFLDTD IN AM_CODE TO MULTIPLE JVAPIEP.JVAPIEP.AMGRIE
IN JVAPIEP TAG J15 AS J15
END
TABLE FILE AM_CODE
BY LOWEST J7.JVAPIEP.AMGRIE
BY LOWEST J7.JVAPIEP.GRPCIE
BY LOWEST J7.JVAPIEP.INEXIE
BY LOWEST J7.JVAPIEP.ITGRIE
BY LOWEST J7.JVAPIEP.ITSGIE
WHERE ( J7.JVAPIEP.INEXIE EQ 'E' ) AND ( J7.JVAPIEP.ITGRIE NE ' ' ) AND ( J7.JVAPIEP.ITSGIE NE ' ' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS EISGRP FORMAT FOCUS INDEX 'J7.JVAPIEP.ITGRIE' 'J7.JVAPIEP.ITSGIE'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER EISGRP.SEG01.ITGRIE AND EISGRP.SEG01.ITSGIE IN EISGRP TO MULTIPLE
STG_JF_ITEM.STG_JF_ITEM.IGROUP AND STG_JF_ITEM.STG_JF_ITEM.ISGRUP
IN STG_JF_ITEM TAG J20 AS J20
END
TABLE FILE EISGRP
BY LOWEST EISGRP.SEG01.AMGRIE
BY LOWEST EISGRP.SEG01.GRPCIE
BY LOWEST J20.STG_JF_ITEM.ITEMNO
BY LOWEST J20.STG_JF_ITEM.IEDESC
BY LOWEST J20.STG_JF_ITEM.IGROUP
BY LOWEST J20.STG_JF_ITEM.ISGRUP
WHERE ( J20.STG_JF_ITEM.ICOMP EQ 'A' ) AND ( J20.STG_JF_ITEM.ILOC EQ '1' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS ESGRPPROD FORMAT FOCUS INDEX 'J20.STG_JF_ITEM.ITEMNO'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER AM_CODE.SEG01.KFLDTD IN AM_CODE TO MULTIPLE JVAPIEP.JVAPIEP.AMGRIE
IN JVAPIEP TAG J15 AS J15
END
TABLE FILE AM_CODE
BY LOWEST J7.JVAPIEP.AMGRIE
BY J7.JVAPIEP.GRPCIE
BY LOWEST J7.JVAPIEP.CATGIE
WHERE ( J7.JVAPIEP.INEXIE EQ 'E' ) AND ( J7.JVAPIEP.CATGIE NE ' ' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS ECAT FORMAT FOCUS INDEX 'J7.JVAPIEP.AMGRIE' 'J7.JVAPIEP.CATGIE'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER ECAT.SEG01.CATGIE IN ECAT TO MULTIPLE STG_JF_ITEM.STG_JF_ITEM.ICODE2
IN STG_JF_ITEM TAG J16 AS J16
END
TABLE FILE ECAT
BY LOWEST ECAT.SEG01.AMGRIE
BY LOWEST ECAT.SEG01.GRPCIE
BY LOWEST J16.STG_JF_ITEM.ITEMNO
BY LOWEST J16.STG_JF_ITEM.IEDESC
BY LOWEST J16.STG_JF_ITEM.ICODE2
BY LOWEST J16.STG_JF_ITEM.IGROUP
BY LOWEST J16.STG_JF_ITEM.ISGRUP
WHERE ( J16.STG_JF_ITEM.ICOMP EQ 'A' ) AND ( J16.STG_JF_ITEM.ILOC EQ '1' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS ECATPROD FORMAT FOCUS INDEX 'ECAT.SEG01.AMGRIE' 'J16.STG_JF_ITEM.ITEMNO'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER AM_CODE.SEG01.KFLDTD IN AM_CODE TO MULTIPLE JVAPIEP.JVAPIEP.AMGRIE
IN JVAPIEP TAG J17 AS J17
END
TABLE FILE AM_CODE
BY LOWEST J7.JVAPIEP.AMGRIE
BY LOWEST J7.JVAPIEP.GRPCIE
BY LOWEST J7.JVAPIEP.ITEMIE
WHERE ( J7.JVAPIEP.INEXIE EQ 'E' ) AND ( J7.JVAPIEP.ITEMIE NE ' ' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS EPROD FORMAT FOCUS INDEX 'J7.JVAPIEP.AMGRIE' 'J7.JVAPIEP.GRPCIE' 'J7.JVAPIEP.ITEMIE'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER EPROD.SEG01.ITEMIE IN EPROD TO MULTIPLE STG_JF_ITEM.STG_JF_ITEM.ITEMNO
IN STG_JF_ITEM TAG J18 AS J18
END
TABLE FILE EPROD
PRINT
EPROD.SEG01.AMGRIE
EPROD.SEG01.GRPCIE
J18.STG_JF_ITEM.ITEMNO
J18.STG_JF_ITEM.IEDESC
J18.STG_JF_ITEM.ICODE2
J18.STG_JF_ITEM.IGROUP
J18.STG_JF_ITEM.ISGRUP
WHERE ( J18.STG_JF_ITEM.ICOMP EQ 'A' ) AND ( J18.STG_JF_ITEM.ILOC EQ '1' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS EPRODPROD FORMAT FOCUS INDEX 'J18.STG_JF_ITEM.ITEMNO'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
TABLE FILE EGRPPROD
BY LOWEST EGRPPROD.SEG01.AMGRIE
BY LOWEST EGRPPROD.SEG01.GRPCIE
BY LOWEST EGRPPROD.SEG01.ITEMNO
BY LOWEST EGRPPROD.SEG01.IEDESC
BY LOWEST EGRPPROD.SEG01.ICODE2
BY LOWEST EGRPPROD.SEG01.IGROUP
BY LOWEST EGRPPROD.SEG01.ISGRUP
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS EPDATA FORMAT FOCUS INDEX 'EGRPPROD.SEG01.AMGRIE' 'EGRPPROD.SEG01.GRPCIE' 'EGRPPROD.SEG01.ITEMNO'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
MORE
FILE EGRPPROD
MORE
FILE ESGRPPROD
MORE
FILE ECATPROD
END
MATCH FILE IPDATA
SUM IPDATA.SEG01.AMGRIE
BY IPDATA.SEG01.AMGRIE
BY IPDATA.SEG01.GRPCIE
BY IPDATA.SEG01.ITEMNO
BY IPDATA.SEG01.IEDESC
BY IPDATA.SEG01.ICODE2
BY IPDATA.SEG01.IGROUP
BY IPDATA.SEG01.ISGRUP
RUN
FILE EPDATA
SUM EPDATA.SEG01.AMGRIE
BY EPDATA.SEG01.AMGRIE
BY EPDATA.SEG01.GRPCIE
BY EPDATA.SEG01.ITEMNO
BY EPDATA.SEG01.IEDESC
BY EPDATA.SEG01.ICODE2
BY EPDATA.SEG01.IGROUP
BY EPDATA.SEG01.ISGRUP
AFTER MATCH HOLD AS PRODUCTS OLD-NOT-NEW
END
TABLE FILE PRODUCTS
BY LOWEST PRODUCTS.PRODUCTS.AMGRIE
BY LOWEST PRODUCTS.PRODUCTS.GRPCIE
BY LOWEST PRODUCTS.PRODUCTS.ITEMNO
BY LOWEST PRODUCTS.PRODUCTS.IEDESC
BY LOWEST PRODUCTS.PRODUCTS.ICODE2
BY LOWEST PRODUCTS.PRODUCTS.IGROUP
BY LOWEST PRODUCTS.PRODUCTS.ISGRUP
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS PRODDAT1 FORMAT FOCUS INDEX 'PRODUCTS.PRODUCTS.AMGRIE' 'PRODUCTS.PRODUCTS.GRPCIE' 'PRODUCTS.PRODUCTS.ITEMNO'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER AM_CODE.SEG01.KFLDTD IN AM_CODE TO MULTIPLE AMAPHDP.AMAPHDP.SPERSON
IN AMAPHDP TAG J19 AS J19
END
TABLE FILE AM_CODE
BY LOWEST J19.AMAPHDP.SPERSON
BY LOWEST J19.AMAPHDP.GROUPCD
BY LOWEST J19.AMAPHDP.HSOLDN
BY LOWEST J19.AMAPHDP.HSHIPN
BY LOWEST J19.AMAPHDP.CNAME
BY LOWEST J19.AMAPHDP.CTYPRV
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS IACCNT FORMAT FOCUS INDEX 'J19.AMAPHDP.SPERSON' 'J19.AMAPHDP.HSOLDN'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
AM_CODE.SEG01.KFLDTD IN AM_CODE TO MULTIPLE JVAPIEP.JVAPIEP.AMGRIE IN JVAPIEP
TAG J0 AS J0
END
TABLE FILE AM_CODE
BY LOWEST J0.JVAPIEP.AMGRIE
BY LOWEST J0.JVAPIEP.SCUSIE
WHERE ( J7.JVAPIEP.INEXIE EQ 'E' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS ECUST FORMAT FOCUS INDEX 'J0.JVAPIEP.AMGRIE' 'J0.JVAPIEP.SCUSIE'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER ECUST.SEG01.AMGRIE AND ECUST.SEG01.SCUSIE IN ECUST TO UNIQUE
AMAPHDP.AMAPHDP.SPERSON AND AMAPHDP.AMAPHDP.HSHIPN IN AMAPHDP TAG J2 AS J2
END
TABLE FILE ECUST
BY LOWEST J2.AMAPHDP.SPERSON
BY LOWEST J2.AMAPHDP.GROUPCD
BY LOWEST J2.AMAPHDP.HSOLDN
BY LOWEST J2.AMAPHDP.HSHIPN
BY LOWEST J2.AMAPHDP.CNAME
BY LOWEST J2.AMAPHDP.CTYPRV
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS EXACCOUNT FORMAT FOCUS INDEX 'J2.AMAPHDP.SPERSON' 'J2.AMAPHDP.HSOLDN' 'J2.AMAPHDP.HSHIPN' 'J2.AMAPHDP.GROUPCD'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
MATCH FILE IACCNT
SUM IACCNT.SEG01.SPERSON
BY IACCNT.SEG01.SPERSON
BY IACCNT.SEG01.GROUPCD
BY IACCNT.SEG01.HSOLDN
BY IACCNT.SEG01.HSHIPN
BY IACCNT.SEG01.CNAME
BY IACCNT.SEG01.CTYPRV
RUN
FILE EXACCOUNT
SUM EXACCOUNT.SEG01.SPERSON
BY EXACCOUNT.SEG01.SPERSON
BY EXACCOUNT.SEG01.GROUPCD
BY EXACCOUNT.SEG01.HSOLDN
BY EXACCOUNT.SEG01.HSHIPN
BY EXACCOUNT.SEG01.CNAME
BY EXACCOUNT.SEG01.CTYPRV
AFTER MATCH HOLD AS ACCOUNTS OLD-NOT-NEW
END
TABLE FILE ACCOUNTS
BY LOWEST ACCOUNTS.ACCOUNTS.SPERSON
BY LOWEST ACCOUNTS.ACCOUNTS.GROUPCD
BY LOWEST ACCOUNTS.ACCOUNTS.HSOLDN
BY LOWEST ACCOUNTS.ACCOUNTS.HSHIPN
BY ACCOUNTS.ACCOUNTS.CNAME
BY LOWEST ACCOUNTS.ACCOUNTS.CTYPRV
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS CUSDATA1 FORMAT FOCUS
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER CUSDATA1.SEG01.HSOLDN AND CUSDATA1.SEG01.HSHIPN IN CUSDATA1 TO MULTIPLE
MASTER_ORDER_DET.ORDER_HDR_FACT.HSOLDN
AND MASTER_ORDER_DET.ORDER_HDR_FACT.HSHIPN IN MASTER_ORDER_DET TAG J5 AS J5
END
DEFINE FILE CUSDATA1
SHIPQTY/P10=IF HOTYPE EQ 'B' THEN 0 ELSE DUN07;
FISCYR/YY=J5.DINDAT_DIM_TIME.FULL_DATE;
END
TABLE FILE CUSDATA1
SUM
J5.ORDER_DET_FACT.SHIPQTY
J5.ORDER_DET_FACT.DINVAM
BY LOWEST CUSDATA1.SEG01.SPERSON
BY LOWEST CUSDATA1.SEG01.GROUPCD
BY LOWEST CUSDATA1.SEG01.HSOLDN
BY LOWEST CUSDATA1.SEG01.HSHIPN
BY LOWEST CUSDATA1.SEG01.CNAME
BY LOWEST CUSDATA1.SEG01.CTYPRV
BY LOWEST J5.ORDER_HDR_FACT.HSLSMN
BY LOWEST J5.ORDER_HDR_FACT.HORDNO
BY LOWEST J5.HSHDAT_DIM_TIME.FULL_DATE AS 'ACTDAT'
BY LOWEST J5.DINDAT_DIM_TIME.FULL_DATE AS 'INVDAT'
BY LOWEST J5.ORDER_DET_FACT.DITEM
BY LOWEST J5.ORDER_DET_FACT.DLCST
BY J5.DINDAT_DIM_TIME.FISCYR
BY J5.DINDAT_DIM_TIME.YEAR_MONTH_NUMBER
BY LOWEST J5.HSHDAT_DIM_TIME.MONTH_NUMBER
BY LOWEST J5.HSHDAT_DIM_TIME.MONTH_NAME
WHERE ( J5.DINDAT_DIM_TIME.FULL_DATE GE '&FULL_DATE' ) AND ( J5.DINDAT_DIM_TIME.FULL_DATE LE '&FULL_DATEX' );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS CUSTACT1 FORMAT FOCUS
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER CUSTACT1.SEG01.DITEM IN CUSTACT1 TO MULTIPLE PRODDAT1.SEG01.ITEMNO
IN PRODDAT1 TAG J4 AS J4
END
DEFINE FILE CUSTACT1
CURDAT/YYMD=&YYMD;
CYEAR/YY=CURDAT;
PYEAR/YY=DATEADD(CURDAT, 'Y', -1);
END
TABLE FILE CUSTACT1
SUM
CUSTACT1.SEG01.SHIPQTY
CUSTACT1.SEG01.DINVAM
BY LOWEST CUSTACT1.SEG01.SPERSON
BY LOWEST CUSTACT1.SEG01.GROUPCD
BY LOWEST CUSTACT1.SEG01.HSOLDN
BY LOWEST CUSTACT1.SEG01.HSHIPN
BY LOWEST CUSTACT1.SEG01.CNAME
BY LOWEST CUSTACT1.SEG01.CTYPRV
BY LOWEST CUSTACT1.SEG01.HSLSMN
BY LOWEST CUSTACT1.SEG01.HORDNO
BY LOWEST CUSTACT1.SEG01.ACTDAT
BY LOWEST CUSTACT1.SEG01.INVDAT
BY LOWEST CUSTACT1.SEG01.DITEM
BY CYEAR
BY PYEAR
BY CUSTACT1.SEG01.FISCYR
BY LOWEST CUSTACT1.SEG01.YEAR_MONTH_NUMBER
BY LOWEST CUSTACT1.SEG01.MONTH_NUMBER
BY LOWEST CUSTACT1.SEG01.MONTH_NAME
WHERE ( CUSTACT1.SEG01.SPERSON EQ J4.SEG01.AMGRIE ) AND ( CUSTACT1.SEG01.GROUPCD EQ J4.SEG01.GRPCIE );
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS ORDERS FORMAT FOCUS
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
DEFINE FILE ORDERS
SUMPYR/D12.2CM=IF ORDERS.SEG01.FISCYR EQ ORDERS.SEG01.PYEAR THEN ORDERS.SEG01.DINVAM ELSE 0;
SUMCYR/D12.2CM=IF ORDERS.SEG01.FISCYR EQ CYEAR THEN ORDERS.SEG01.DINVAM ELSE 0;
END
TABLE FILE ORDERS
SUM
ORDERS.SEG01.FISCYR
ORDERS.SEG01.YEAR_MONTH_NUMBER
ORDERS.SEG01.MONTH_NUMBER
ORDERS.SEG01.MONTH_NAME
ORDERS.SEG01.SUMPYR
ORDERS.SEG01.SUMCYR
ORDERS.SEG01.DINVAM
BY LOWEST ORDERS.SEG01.SPERSON
BY LOWEST ORDERS.SEG01.GROUPCD
BY LOWEST ORDERS.SEG01.HSOLDN
BY LOWEST ORDERS.SEG01.HSHIPN
BY LOWEST ORDERS.SEG01.CNAME
BY LOWEST ORDERS.SEG01.CTYPRV
BY ORDERS.SEG01.HSLSMN
BY ORDERS.SEG01.HORDNO
BY ORDERS.SEG01.ACTDAT
BY ORDERS.SEG01.INVDAT
BY ORDERS.SEG01.DITEM
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE HOLD AS SUMDATA FORMAT FOCUS
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
$
ENDSTYLE
END
JOIN
INNER SUMDATA.SEG01.DITEM IN SUMDATA TO MULTIPLE PRODDAT1.SEG01.ITEMNO
IN PRODDAT1 TAG J1 AS J1
END
JOIN
INNER FILE SUMDATA AT SUMDATA.SEG01.SPERSON TO MULTIPLE FILE PRODDAT1
AT PRODDAT1.SEG01.AMGRIE TAG J3 AS J3
WHERE SUMDATA.SEG01.SPERSON EQ J3.SEG01.AMGRIE;
END
JOIN
INNER SUMDATA.SEG01.GROUPCD IN SUMDATA TO MULTIPLE PRODDAT1.SEG01.GRPCIE
IN PRODDAT1 TAG J6 AS J6
END
TABLE FILE SUMDATA
SUM
SUMDATA.SEG01.SUMPYR AS 'Total,Prev Year'
SUMDATA.SEG01.SUMCYR AS 'Total ,Cur Year'
BY LOWEST SUMDATA.SEG01.SPERSON AS 'Account,Manager'
BY LOWEST SUMDATA.SEG01.HSOLDN AS 'Sold To,Account'
BY LOWEST SUMDATA.SEG01.HSHIPN AS 'Ship To,Account'
BY LOWEST SUMDATA.SEG01.DITEM
BY LOWEST J1.SEG01.ICODE2
BY LOWEST J1.SEG01.IGROUP
BY LOWEST J1.SEG01.ISGRUP
WHERE SUMDATA.SEG01.HSOLDN EQ '33090';
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET BYDISPLAY ON
ON TABLE ROW-TOTAL AS 'TOTAL'
ON TABLE COLUMN-TOTAL AS 'TOTAL'
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET COMPOUND 'BYTOC 1'
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = IBFS:/WFC/Repository/Sales/_sales/style_johnvince_usa.sty,
$
ENDSTYLE
END