Focal Point
[CLOSED] getting FOC1346 and FOC1130 error in webfocus

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/7147033786

July 25, 2017, 10:47 AM
Genius
[CLOSED] getting FOC1346 and FOC1130 error in webfocus
Hi,


Im getting below error

-*-SET &ECHO=ALL;
-*----------------------------------------------------------------------------
-SET &HOLDLINES=0;
-*----------------------------------------------------------------------------
END
-RUN
(FOC1346) : FORMAT ERROR: Record 1 , Column 79
(FOC1130) FORMAT CONVERSION ERROR FIELD/KEY : REA_AMOU
-*----------------------------------------------------------------------------

when i change the size as below

-* Linux migration start change 1
-*TOT_AMOUNT=TOT_AMOU/100;
-*REA_AMOUNT=REA_AMOU/100;
TOT_AMOUNT / D16.2 =TOT_AMOU/100;
REA_AMOUNT / D10.2 =REA_AMOU/100;
-* Linux migration end change

The error is gone but its not showing rea_amount value in report its just printing 00
i tried changing mass file also as below

FIELDNAME=CRE_DATE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=CRE_TIME ,ALIAS= ,FORMAT=A4 ,ACTUAL=A4 ,$
FIELDNAME=FILLER2 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=OF_RECOR ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=TOT_AMOU ,ALIAS= ,FORMAT=P17.2 ,ACTUAL=D16
FIELDNAME=REC_TYPE2 ,ALIAS= ,FORMAT=A1 ,ACTUAL=A1 ,$
FIELDNAME=FILLER3 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=DET_BAN ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=REA_TYPE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=REA_CODE ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=REA_AMOU ,ALIAS= ,FORMAT=P9.2 ,ACTUAL=D10 ,$
FIELDNAME=ASS_DATE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=FILLER4 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$


still same error

my code is as below


-*************************************************************
-* NAME : arca06dm.fex
-*
-* PURPOSE : OCA Incoming Interface File Dump Report.
-*
-*************************************************************
-SET &ECHO=ALL;
SET PANEL = 360
-SET &INC_NAME = FGETENV(13,'OCA_FILE_NAME',50,'A50');
-SET &EXT_NAME = FGETENV(18,'OCA_DMP_SHORT_NAME',14,'A14');
-SET &LAY_NAME = FGETENV(21,'OCADMP_LAY_SHORT_NAME',14,'A14');
-* Linux Migration Start Change
-SET &WORKDIR=FGETENV(128,'TLG_SHORTNAME_DIR',128,'A128');
-SET &UNAME_RESULT = FGETENV(12,'UNAME_RESULT',20,'A20');
-* Linux Migration End Change
-* Linux Migration Start Change
-SET &EXT_FILE = (&WORKDIR || '/'||&EXT_NAME);
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO L1782511 ;
-SET &EXT_FILE = ('../'||&EXT_NAME);
-L1782511

-* Linux Migration End Change
-* Linux Migration Start Change
-SET &&REP_FILE = (&WORKDIR || '/'||&LAY_NAME);
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO L1782591 ;
-SET &&REP_FILE = ('../'||&LAY_NAME);
-L1782591

-* Linux Migration End Change


-SET &REPCODE='ARCA-06-DMP';
-SET &REPNAME1='OCA INCOMING INTERFACE FILE - DUMP REPORT';
-SET &REPNAME2='';
-SET &REPNAME=&REPNAME1||&REPNAME2;

FILEDEF OFFLINE DISK &&REP_FILE
OFFLINE
-INCLUDE gnrpdef.fex

FILEDEF arca06dm DISK &EXT_FILE (RECFM F LRECL 100

DEFINE FILE ARCA06DM
LASTROW/A1=' ';
COUNT_1/I9C=1;
OCA_FILE/A50 = '&INC_NAME';
SEQ_NO_A/A9=EDIT(SEQ_NO);
DET_BAN1/A9=IF REC_NO EQ 1 THEN ' '
ELSE EDIT(DET_BAN);
-* Linux migration start change 1
-*TOT_AMOUNT=TOT_AMOU/100;
-*REA_AMOUNT=REA_AMOU/100;
TOT_AMOUNT / D16.2 =TOT_AMOU/100;
REA_AMOUNT / D10.2 =REA_AMOU/100;
-* Linux migration end change
DET_REC_NO/A9=IF REC_NO EQ 1 THEN ' '
ELSE EDIT(REC_NO);
REA_DATE/A10= IF REC_NO EQ 1 THEN ' '
ELSE EDIT(ASS_DATE,'$$$$99/99/')|EDIT(ASS_DATE,'9999');
NCRE_DATE/A10=IF CRE_DATE EQ ' ' THEN ' '
ELSE EDIT (CRE_DATE,'$$$$99/99/')|EDIT(CRE_DATE,'9999');
NCRE_TIME/A5=IF CRE_TIME EQ ' ' THEN ' '
ELSE EDIT (CRE_TIME,'99:99');
END

-RUN
-IF &FOCERRNUM NE 0 GOTO ERR;

TABLE FILE ARCA06DM
HEADING
-INCLUDE gnrphdr.fex
""FILE NAME :
PRINT DET_REC_NO AS 'RECORD,NUMBER'
REC_TYPE2 AS 'RECORD,TYPE '
DET_BAN1 AS 'BAN '
REA_TYPE AS 'REASON,TYPE '
REA_CODE AS 'REASON,CODE '
REA_AMOUNT AS 'REASON,AMOUNT '
REA_DATE AS 'REASON,DATE '
-*
BY LASTROW NOPRINT
-*
ON LASTROW SUBHEAD
"---------------------------------------------------------------------------"
" <1 000000001 <12 File Seq No: "
" <16 Market: Creation Date: Creation Time: "
" <16 Number of Records: Batch Amount: "
"---------------------------------------------------------------------------"
-*
FOOTING BOTTOM
-*
-INCLUDE gnrpftr.fex

END

-RUN
-IF &FOCERRNUM NE 0 GOTO ERR;

-INCLUDE gnrpempt.fex
-TYPE Dump Focus finished successfully...
-* Linux Migration Start Change
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO LINUX_OS;
-QUIT FOCUS 0
-* Linux Migration End Change
-*
-ERR
-TYPE Dump Focus failed...
-* Linux Migration Start Change
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO LINUX_OS;
-QUIT FOCUS &FOCERRNUM
-LINUX_OS
-EXIT
-* Linux Migration End Change



If someone can help me with this thanks in advance

This message has been edited. Last edited by: FP Mod Chuck,


WebFOCUS, Linux
Excel, CSV
July 25, 2017, 10:51 AM
BabakNYC
quote:
""FILE NAME :


On line 72 you have something I don't understand. What is that line supposed to do?


WebFOCUS 8206, Unix, Windows
July 25, 2017, 11:25 AM
Genius
Hi,

Thanks for ur reply.
file-name is to print the filename in the output file as below

FILE NAME : ar.agency_reason.20170514.input.RPM2.000000274


WebFOCUS, Linux
Excel, CSV
July 25, 2017, 11:31 AM
Genius
Hi,

I pasted code again as it was not showing few things earlier
Thanks a lot for ur help


-*************************************************************
-* NAME : arca06dm.fex
-*
-* PURPOSE : OCA Incoming Interface File Dump Report.
-*
-*************************************************************
-SET &ECHO=ALL;
SET PANEL = 360
-SET &INC_NAME = FGETENV(13,'OCA_FILE_NAME',50,'A50');
-SET &EXT_NAME = FGETENV(18,'OCA_DMP_SHORT_NAME',14,'A14');
-SET &LAY_NAME = FGETENV(21,'OCADMP_LAY_SHORT_NAME',14,'A14');
-* Linux Migration Start Change
-SET &WORKDIR=FGETENV(128,'TLG_SHORTNAME_DIR',128,'A128');
-SET &UNAME_RESULT = FGETENV(12,'UNAME_RESULT',20,'A20');
-* Linux Migration End Change
-* Linux Migration Start Change
-SET &EXT_FILE = (&WORKDIR || '/'||&EXT_NAME);
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO L1782511 ;
-SET &EXT_FILE = ('../'||&EXT_NAME);
-L1782511

-* Linux Migration End Change
-* Linux Migration Start Change
-SET &&REP_FILE = (&WORKDIR || '/'||&LAY_NAME);
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO L1782591 ;
-SET &&REP_FILE = ('../'||&LAY_NAME);
-L1782591

-* Linux Migration End Change


-SET &REPCODE='ARCA-06-DMP';
-SET &REPNAME1='OCA INCOMING INTERFACE FILE - DUMP REPORT';
-SET &REPNAME2='';
-SET &REPNAME=&REPNAME1||&REPNAME2;

FILEDEF OFFLINE DISK &&REP_FILE
OFFLINE
-INCLUDE gnrpdef.fex

FILEDEF arca06dm DISK &EXT_FILE (RECFM F LRECL 100

DEFINE FILE ARCA06DM
LASTROW/A1=' ';
COUNT_1/I9C=1;
OCA_FILE/A50 = '&INC_NAME';
SEQ_NO_A/A9=EDIT(SEQ_NO);
DET_BAN1/A9=IF REC_NO EQ 1 THEN ' '
ELSE EDIT(DET_BAN);
-* Linux migration start change 1
-*TOT_AMOUNT=TOT_AMOU/100;
-*REA_AMOUNT=REA_AMOU/100;
TOT_AMOUNT / D16.2 =TOT_AMOU/100;
REA_AMOUNT / D10.2 =REA_AMOU/100;
-* Linux migration end change
DET_REC_NO/A9=IF REC_NO EQ 1 THEN ' '
ELSE EDIT(REC_NO);
REA_DATE/A10= IF REC_NO EQ 1 THEN ' '
ELSE EDIT(ASS_DATE,'$$$$99/99/')|EDIT(ASS_DATE,'9999');
NCRE_DATE/A10=IF CRE_DATE EQ ' ' THEN ' '
ELSE EDIT (CRE_DATE,'$$$$99/99/')|EDIT(CRE_DATE,'9999');
NCRE_TIME/A5=IF CRE_TIME EQ ' ' THEN ' '
ELSE EDIT (CRE_TIME,'99:99');
END

-RUN
-IF &FOCERRNUM NE 0 GOTO ERR;

TABLE FILE ARCA06DM
HEADING
-INCLUDE gnrphdr.fex
""FILE NAME :
PRINT DET_REC_NO AS 'RECORD,NUMBER'
REC_TYPE2 AS 'RECORD,TYPE '
DET_BAN1 AS 'BAN '
REA_TYPE AS 'REASON,TYPE '
REA_CODE AS 'REASON,CODE '
REA_AMOUNT AS 'REASON,AMOUNT '
REA_DATE AS 'REASON,DATE '
-*
BY LASTROW NOPRINT
-*
ON LASTROW SUBHEAD
"---------------------------------------------------------------------------"
" <1 000000001 <12 File Seq No: "
" <16 Market: Creation Date: Creation Time: "
" <16 Number of Records: Batch Amount: "
"---------------------------------------------------------------------------"
-*
FOOTING BOTTOM
-*
-INCLUDE gnrpftr.fex

END

-RUN
-IF &FOCERRNUM NE 0 GOTO ERR;

-INCLUDE gnrpempt.fex
-TYPE Dump Focus finished successfully...
-* Linux Migration Start Change
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO LINUX_OS;
-QUIT FOCUS 0
-* Linux Migration End Change
-*
-ERR
-TYPE Dump Focus failed...
-* Linux Migration Start Change
-IF &UNAME_RESULT EQ 'Linux' THEN GOTO LINUX_OS;
-QUIT FOCUS &FOCERRNUM
-LINUX_OS
-EXIT
-* Linux Migration End Change


WebFOCUS, Linux
Excel, CSV
July 25, 2017, 11:31 AM
BabakNYC
I'm not familiar with that syntax. If you're trying to put a heading in the output with the filename, you need to put the whole heading in double quotes.


WebFOCUS 8206, Unix, Windows
July 25, 2017, 11:35 AM
Genius
Actually in code its in double quotes only but here its not pasting it.


HEADING
-INCLUDE gnrphdr.fex
""FILE NAME :


WebFOCUS, Linux
Excel, CSV
July 25, 2017, 11:36 AM
Genius
as below

""FILE_NAME :


WebFOCUS, Linux
Excel, CSV
July 25, 2017, 11:36 AM
MartinY
quote:
(FOC1130) FORMAT CONVERSION ERROR FIELD/KEY : REA_AMOU


Since the error seems to come from the source field, first try a sample data from the master file.
Second, you may need to refresh the master file.
Third try a simple fex reading that master file.
Something such as :
TABLE FILE ARCA06DM
PRINT *
WHERE READLIMIT EQ 1000;
END
-RUN


Also, when you want to include code in your thread, use the code tag (last icon on ribbon)
</>



WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF
In Focus since 2007
July 25, 2017, 11:52 AM
j.gross
Apparently you tried to alter the MFD in conjunction with defining /D fields derived from the data record's fields.

I see two problems with the MFD as you posted it:

FIELDNAME=CRE_DATE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=CRE_TIME ,ALIAS= ,FORMAT=A4 ,ACTUAL=A4 ,$
FIELDNAME=FILLER2 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=OF_RECOR ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=TOT_AMOU ,ALIAS= ,FORMAT=P17.2 ,ACTUAL=D16 [1,2]
FIELDNAME=REC_TYPE2 ,ALIAS= ,FORMAT=A1 ,ACTUAL=A1 ,$
FIELDNAME=FILLER3 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=DET_BAN ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=REA_TYPE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=REA_CODE ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=REA_AMOU ,ALIAS= ,FORMAT=P9.2 ,ACTUAL=D10 ,$ [1]
FIELDNAME=ASS_DATE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=FILLER4 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$

[1] ACTUAL of D16 or D10:
[2] ",$" is missing in one of the lines you apparently edited.


If the "actual" bit configuration is truly Double Precision, ACTUAL must be D8. But I suspect you changed those willy-nilly from P to D. Put those lines back to
FIELDNAME=TOT_AMOU ,ALIAS= ,FORMAT=P17.2 ,ACTUAL=P16,$
and
FIELDNAME=REA_AMOU ,ALIAS= ,FORMAT=P9.2 ,ACTUAL=P10 ,$
(or whatever they originally were) and try again.
July 25, 2017, 12:19 PM
Genius
Hi ,

originally it was like this

FIELDNAME=CRE_TIME ,ALIAS= ,FORMAT=A4 ,ACTUAL=A4 ,$
FIELDNAME=FILLER2 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=OF_RECOR ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=TOT_AMOU ,ALIAS= ,FORMAT=P17.2 ,ACTUAL=A16 ,$
FIELDNAME=REC_TYPE2 ,ALIAS= ,FORMAT=A1 ,ACTUAL=A1 ,$
FIELDNAME=FILLER3 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=DET_BAN ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=REA_TYPE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=REA_CODE ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=REA_AMOU ,ALIAS= ,FORMAT=P9.2 ,ACTUAL=A10 ,$
FIELDNAME=ASS_DATE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=FILLER4 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$


i tried without changing it but still shows same error.but print amount correctly in file. so i do not know why in log i have error
and it process successfully too.but error is still thr.


WebFOCUS, Linux
Excel, CSV
July 25, 2017, 01:33 PM
MartinY
quote:

originally it was like this
FIELDNAME=CRE_TIME ,ALIAS= ,FORMAT=A4 ,ACTUAL=A4 ,$
FIELDNAME=FILLER2 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=OF_RECOR ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=TOT_AMOU ,ALIAS= ,FORMAT=P17.2 ,ACTUAL=A16 ,$
FIELDNAME=REC_TYPE2 ,ALIAS= ,FORMAT=A1 ,ACTUAL=A1 ,$
FIELDNAME=FILLER3 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=DET_BAN ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=REA_TYPE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=REA_CODE ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=REA_AMOU ,ALIAS= ,FORMAT=P9.2 ,ACTUAL=A10 ,$
FIELDNAME=ASS_DATE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=FILLER4 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$


Does the above is the same as if you create another master file for the same source ?

I just find weird that an ACTUAL=A16 is FORMAT=P17.2 or ACTUAL=A10 is FORMAT=P9.2

This can be the cause of your issue...or not...


WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF
In Focus since 2007
July 25, 2017, 02:29 PM
Genius
yes in original file its like this only.
Can u suggest what can be changed to resolve the issue i am facing.

Thanks


WebFOCUS, Linux
Excel, CSV
July 25, 2017, 02:38 PM
MartinY
quote:

Third try a simple fex reading that master file.
Something such as :
TABLE FILE ARCA06DM
PRINT TOT_AMOU
REA_AMOU
END
-RUN

Have you tried the above ?
What is the result ?


WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF
In Focus since 2007
July 25, 2017, 03:20 PM
Genius
its printing the correct value for amount but we still have error in log

END
-RUN
(FOC1346) : FORMAT ERROR: Record 1 , Column 79
(FOC1130) FORMAT CONVERSION ERROR FIELD/KEY : REA_AMOU
-*----------------------------------------------------------------------------


WebFOCUS, Linux
Excel, CSV
July 25, 2017, 03:38 PM
MartinY
quote:
its printing the correct value for amount but we still have error in log


Are you sure that ALL rows from ARCA06DM are printed ? May it be possible that a row be corrupted ?

And if you look at
quote:
Record 1 , Column 79

what is the data at that position ?

Validating your data source is the first step.


WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF
In Focus since 2007
July 25, 2017, 04:01 PM
Genius
Thanks a lot for ur help.
below is my output file

^L

REPORT ARCA-06-DMP OCA INCOMING INTERFACE FILE - DUMP REPORT Page: 2
SPRINT Date: 07/24/2017
Nextel



FILE NAME : ar.agency_reason.20170514.input.RPM2.000000274


RECORD RECORD REASON REASON REASON REASON
NUMBER TYPE BAN TYPE CODE AMOUNT DATE
------ ------- --------- ------ ------ ------------- -----------
---------------------------------------------------------------------------
000000001 B Agency Code: RPM2 File Seq No: 000000274
Market: NXT Creation Date: 05/14/2017 Creation Time: 04:50
Number of Records: 2 Batch Amount: 522.88
---------------------------------------------------------------------------
000000002 D 648754962 STOP BNK 522.88 05/14/2017

and the input file has data as given below

BRPM2 000000274NXTCG201705140450000000002+000000000052288
D648754962STOP BNK+00005228820170514

so its printing all data correctly

im not understanding why its showing error, sorry for stupid questions im very new to webfocus


WebFOCUS, Linux
Excel, CSV
July 26, 2017, 09:45 AM
FP Mod Chuck
Hi Genius

It is not clear to me where the error is on what you have shown. Usually there is a FOCxxxx message describing the error.


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
July 26, 2017, 09:50 AM
MartinY
quote:

(FOC1346) : FORMAT ERROR: Record 1 , Column 79
(FOC1130) FORMAT CONVERSION ERROR FIELD/KEY : REA_AMOU



WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF
In Focus since 2007
July 26, 2017, 12:08 PM
Genius
hi,

It is just showing below error message in log

(FOC1346) : FORMAT ERROR: Record 1 , Column 79
(FOC1130) FORMAT CONVERSION ERROR FIELD/KEY : REA_AMOU


Thanks


WebFOCUS, Linux
Excel, CSV
July 26, 2017, 12:31 PM
FP Mod Chuck
Hi Genius

Sorry I was looking at your last post and didn't scroll back up..

Can you sample data on the master file successfully?


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
July 26, 2017, 12:56 PM
j.gross
quote:
(FOC1346) : FORMAT ERROR: Record 1 , Column 79
(FOC1130) FORMAT CONVERSION ERROR FIELD/KEY : REA_AMOU


That's very weird:

The total of the ACTUAL field widths, in the "original" MFD which you say you reverted to, is only 67.

(Even if Focus would assume word-boundary alignment for the [unspecified] SUFFIX, the total (when widths are rounded up to a multiple of 4) is only 76.)

-- So why would Focus think record 1 extends to column 79?


What is the execution platform?
What creates this data file and its MFD?
What SUFFIX is specified in the Master file?
If applicable, what are the FILEDEF attributes?
July 26, 2017, 03:16 PM
Genius
hi.

sorry for stupid questions as im very new to focus do not know much about it.
Thanks a lot for ur help..


Suffix specified in mass file is FIX as below

FILE=arca06dm ,SUFFIX=FIX
SEGNAME=FIRST
FIELDNAME=REC_NO ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=REC_TYPE ,ALIAS= ,FORMAT=A1 ,ACTUAL=A1 ,$
FIELDNAME=AGE_CODE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=FILLER1 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=SEQ_NO ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=FH_MARKE ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=REC_TYPE1 ,ALIAS= ,FORMAT=A2 ,ACTUAL=A2 ,$
FIELDNAME=CRE_DATE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=CRE_TIME ,ALIAS= ,FORMAT=A4 ,ACTUAL=A4 ,$
FIELDNAME=FILLER2 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=OF_RECOR ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=TOT_AMOU ,ALIAS= ,FORMAT=P17.2 ,ACTUAL=A16 ,$
FIELDNAME=REC_TYPE2 ,ALIAS= ,FORMAT=A1 ,ACTUAL=A1 ,$
FIELDNAME=FILLER3 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=DET_BAN ,ALIAS= ,FORMAT=I9 ,ACTUAL=I4 ,$
FIELDNAME=REA_TYPE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=REA_CODE ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$
FIELDNAME=REA_AMOU ,ALIAS= ,FORMAT=P9.2 ,ACTUAL=A10 ,$
FIELDNAME=ASS_DATE ,ALIAS= ,FORMAT=A8 ,ACTUAL=A8 ,$
FIELDNAME=FILLER4 ,ALIAS= ,FORMAT=A3 ,ACTUAL=A3 ,$

$Total Length: 100
~


WebFOCUS, Linux
Excel, CSV
July 26, 2017, 04:40 PM
FP Mod Chuck
Genius

This master file is much different that what you posted earlier. The ACTUAL's in the latest are all Alpha as they should be for a FIX file suffix. You had changed the ACTUAL to D10 before and I believe that is what caused the FORMAT error. Does it work with this master file. Can you sample data with it. You will need to add the following line to the master as the second line

DATASET=appfolder/arca06dm.ftm , $

where app folder is the folder the data is saved under.


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
July 26, 2017, 05:14 PM
Genius
i have tried to run job with the same .mas file and it shows error message only in the log.

i have tried with adding line u said but still same error.
i do not know where i will find appfolder, as now i ran job from one directory but there i could not find it.


WebFOCUS, Linux
Excel, CSV
July 26, 2017, 06:38 PM
Dan Satchell
Since the error message points to the first record, is it possible the first row in the data file is a header record (a.k.a. column titles)?


WebFOCUS 7.7.05
July 27, 2017, 11:37 AM
Genius
Hi below is the output and the input file data from my reports. i hope it will give u a little idea of whats going on.

thanks a lot for help

RECORD RECORD REASON REASON REASON REASON
NUMBER TYPE BAN TYPE CODE AMOUNT DATE
------ ------- --------- ------ ------ ------------- -----------
---------------------------------------------------------------------------
000000001 B Agency Code: RPM2 File Seq No: 000000274
Market: NXT Creation Date: 05/14/2017 Creation Time: 04:50
Number of Records: 2 Batch Amount: 522.88
---------------------------------------------------------------------------
000000002 D 648754962 STOP BNK 522.88 05/14/2017

and the input file has data as given below

BRPM2 000000274NXTCG201705140450000000002+000000000052288
D648754962STOP BNK+00005228820170514


WebFOCUS, Linux
Excel, CSV
July 27, 2017, 12:06 PM
FP Mod Chuck
Genius

What folder is the input file in and what is the exact file name? Does it exist under the \ibi\apps directory structure? I want you to be able to run sample data against the master file and see if the error occurs. We know you are having issues with the fex and I am trying to see if it is the fex or the actual data.


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
July 27, 2017, 03:44 PM
Genius
Hi,

My input files are in location below :

/dbl_sh_unc/fs_users/oprtub01/var/nxt/projs/ar/interfaces/OCARetainCease/input

and names :

-rw-r--r-- 1 oprtub01 oper 595 Jul 27 14:22 ar.agency_reason.20170514.input.ICS1.000002294
-rw-r--r-- 1 oprtub01 oper 1661 Jul 27 14:22 ar.agency_reason.20170514.input.RPM1.000002109
-rw-r--r-- 1 oprtub01 oper 101 Jul 27 14:22 ar.agency_reason.20170514.input.RPM2.000000274
-rw-r--r-- 1 oprtub01 oper 181 Jul 27 14:22 ar.agency_reason.20170724.input.AFN3.01611
-rw-r--r-- 1 oprtub01 oper 6581 Jul 27 14:22 ar.agency_reason.20170724.input.DAS2.000001783


I tried creating input file on my own but its still showing same error message so i do not think its issue with input data.


WebFOCUS, Linux
Excel, CSV
July 27, 2017, 05:28 PM
FP Mod Chuck
Hi Genius

Add the following line as the second line of the master file description and then try to sample the data.

DATASET="/dbl_sh_unc/fs_users/oprtub01/var/nxt/projs/ar/interfaces/OCARetainCease/input/ar.agency_reason.20170514.input.ICS1.000002294" , $


Thank you for using Focal Point!

Chuck Wolff - Focal Point Moderator
WebFOCUS 7x and 8x, Windows, Linux All output Formats
July 28, 2017, 11:18 AM
Genius
hi ,
I tried running with the line u asked me to include in .mas file but the output looks same to me.
Its still has same error message.

i have posted the whole flow here so that u will get an idea and u would be able to help me.
Thanks a lot for ur help.


SET PANEL = 360
-SET &INC_NAME = FGETENV(13,'OCA_FILE_NAME',50,'A50');
-SET &EXT_NAME = FGETENV(18,'OCA_DMP_SHORT_NAME',14,'A14');
-SET &LAY_NAME = FGETENV(21,'OCADMP_LAY_SHORT_NAME',14,'A14');
-* Linux Migration Start Change
-SET &WORKDIR=FGETENV(128,'TLG_SHORTNAME_DIR',128,'A128');
-SET &UNAME_RESULT = FGETENV(12,'UNAME_RESULT',20,'A20');
-* Linux Migration End Change
-* Linux Migration Start Change
-SET &EXT_FILE = (/dbl_sh_unc/fs_users/oprtub01/var/nxt/projs/ar/work
|| '/'||file
8UTKrM );
-IF Linux EQ 'Linux' THEN GOTO L1782511 ;
-L1782511
-* Linux Migration End Change
-* Linux Migration Start Change
-SET &&REP_FILE = (/dbl_sh_unc/fs_users/oprtub01/var/nxt/projs/ar/work
|| '/'||fil
e09mU97 );
-IF Linux EQ 'Linux' THEN GOTO L1782591 ;
-L1782591
-* Linux Migration End Change
-SET &REPCODE='ARCA-06-DMP';
-SET &REPNAME1='OCA INCOMING INTERFACE FILE - DUMP REPORT';
-SET &REPNAME2='';
-SET &REPNAME=OCA INCOMING INTERFACE FILE - DUMP REPORT| ;
FILEDEF OFFLINE DISK /dbl_sh_unc/fs_users/oprtub01/var/nxt/projs/ar/work/file09
mU97
OFFLINE
-INCLUDE gnrpdef.fex
-*$RCSfile: gnrpdef.fex,v $ $Revision: 20.1.1.1 $
-*$Date: 2002/10/13 11:39:09 $ $Author: ccnxt $
-*$State: TLV_1 $ $Locker: $
-*************************************************************
-* NAME : gnrpdef.fex
-*
-*************************************************************
-*
-* Prepare the date to display:
-*
-SET &REPDATE=FGETENV(10,'FOCUS_DATE',8,'A8');
-SET &REPDATE=EDIT(20170718,'$$$$99/99/')|EDIT(20170718,'9999');
-*
-* Split &REPNAME to 2 strings (&REPNAME1 and &REPNAME2):
-*
-SET &&INPSTRING=OCA INCOMING INTERFACE FILE - DUMP REPORT ;
-INCLUDE gnrpunst.fex
-*$RCSfile: gnrpunst.fex,v $ $Revision: 20.1.1.1 $
-*$Date: 2002/10/13 11:39:14 $ $Author: ccnxt $
-*$State: TLV_1 $ $Locker: $
-*************************************************************
-* NAME : gnrpunst.fex
-*
-* Description: This routine receives the global variable
-* &&INPSTRING with length 80 or less and
-* splits it to 2 strings:
-* &&OUTSTRING1 with length 55 and
-* &&OUTSTRING2 with length 25;
-* Also routine calculates shift of the strings
-* from the beginning of a line.
-*
-*************************************************************
-*
-*************************************************************
-*
-* Initialize output arguments:
-*
-SET &&OUTSTRING1=' ';
-SET &&OUTSTRING2=' ';
-SET &&STRINGSHF=66;
-*
-* Check input string, if it is empty then do not split it:
-*
-IF OCA INCOMING INTERFACE FILE - DUMP REPORT EQ ' ' GOTO NOSTR;
-*
-* Split the input string:
-*
-SET &HLEN=ARGLEN(42,OCA INCOMING INTERFACE FILE - DUMP REPORT ,'I4');
-SET &EXLEN=IF 41 LE 55 THEN 41 ELSE 55;
-*CH#1 - Start
-*SET &&OUTSTRING1=SUBSTR(&HLEN,&&INPSTRING,1,&EXLEN,&EXLEN,'A55');
-SET &&OUTSTRING1=SUBSTR(41,OCA INCOMING INTERFACE FILE - DUMP REPORT ,1,41,55,
'A55');
-*CH#1 - End
-SET &RLEN=41-55;
-SET &RLEN=IF -14 LT 0 THEN 0 ELSE -14;
-*CH#1 - Start
-*SET &&OUTSTRING2=SUBSTR(&HLEN,&&INPSTRING,56,&HLEN,&RLEN,'A25');
-SET &&OUTSTRING2=SUBSTR(41,OCA INCOMING INTERFACE FILE - DUMP REPORT ,56,41,25
,'A25');
-*CH#1 - End
-SET &&STRINGSHF=66 - (41 / 2);
-*
-NOSTR
-*
-*
-SET &REPNAME1=OCA INCOMING INTERFACE FILE - DUMP REPORT ;
-SET &REPNAME2= ;
-SET &REPNAMESHF=45;
-*
-* Split &&PGFOOT1 (length 80) to 2 strings (&PGFTSTR11 and &PGFTSTR12)
-* with length 55 and 25:
-*
-SET &&INPSTRING=---
;
-INCLUDE gnrpunst.fex
-*$RCSfile: gnrpunst.fex,v $ $Revision: 20.1.1.1 $
-*$Date: 2002/10/13 11:39:14 $ $Author: ccnxt $
-*$State: TLV_1 $ $Locker: $
-*************************************************************
-* NAME : gnrpunst.fex
-*
-* Description: This routine receives the global variable
-* &&INPSTRING with length 80 or less and
-* splits it to 2 strings:
-* &&OUTSTRING1 with length 55 and
-* &&OUTSTRING2 with length 25;
-* Also routine calculates shift of the strings
-* from the beginning of a line.
-*
-*************************************************************
-*
-*************************************************************
-*
-* Initialize output arguments:
-*
-SET &&OUTSTRING1=' ';
-SET &&OUTSTRING2=' ';
-SET &&STRINGSHF=66;
-*
-* Check input string, if it is empty then do not split it:
-*
-IF ---
EQ ' ' GOTO NOSTR;
-*
-* Split the input string:
-*
-SET &HLEN=ARGLEN(80,---
,'I4');
-SET &EXLEN=IF 3 LE 55 THEN 3 ELSE 55;
-*CH#1 - Start
-*SET &&OUTSTRING1=SUBSTR(&HLEN,&&INPSTRING,1,&EXLEN,&EXLEN,'A55');
-SET &&OUTSTRING1=SUBSTR(3,---
,1,3,55,'A55');
-*CH#1 - End
-SET &RLEN=3-55;
-SET &RLEN=IF -52 LT 0 THEN 0 ELSE -52;
-*CH#1 - Start
-*SET &&OUTSTRING2=SUBSTR(&HLEN,&&INPSTRING,56,&HLEN,&RLEN,'A25');
-SET &&OUTSTRING2=SUBSTR(3,---
,56,3,25,'A25');
-*CH#1 - End
-SET &&STRINGSHF=66 - (3 / 2);
-*
-NOSTR
-*
-*
-SET &PGFTSTR11=--- ;
-SET &PGFTSTR12= ;
-*
-* Split &&PGFOOT2 (length 80) to 2 strings (&PGFTSTR21 and &PGFTSTR22)
-* with length 55 and 25:
-*
-SET &&INPSTRING=Proprietary and Confidential of Sprint
;
-INCLUDE gnrpunst.fex
-*$RCSfile: gnrpunst.fex,v $ $Revision: 20.1.1.1 $
-*$Date: 2002/10/13 11:39:14 $ $Author: ccnxt $
-*$State: TLV_1 $ $Locker: $
-*************************************************************
-* NAME : gnrpunst.fex
-*
-* Description: This routine receives the global variable
-* &&INPSTRING with length 80 or less and
-* splits it to 2 strings:
-* &&OUTSTRING1 with length 55 and
-* &&OUTSTRING2 with length 25;
-* Also routine calculates shift of the strings
-* from the beginning of a line.
-*
-*************************************************************
-
-*************************************************************
-*
-* Initialize output arguments:
-*
-SET &&OUTSTRING1=' ';
-SET &&OUTSTRING2=' ';
-SET &&STRINGSHF=66;
-*
-* Check input string, if it is empty then do not split it:
-*
-IF Proprietary and Confidential of Sprint
EQ ' ' GOTO NOSTR;
-*
-* Split the input string:
-*
-SET &HLEN=ARGLEN(80,Proprietary and Confidential of Sprint
,'I4');
-SET &EXLEN=IF 38 LE 55 THEN 38 ELSE 55;
-*CH#1 - Start
-*SET &&OUTSTRING1=SUBSTR(&HLEN,&&INPSTRING,1,&EXLEN,&EXLEN,'A55');
-SET &&OUTSTRING1=SUBSTR(38,Proprietary and Confidential of Sprint
,1,38,55,'A55');
-*CH#1 - End
-SET &RLEN=38-55;
-SET &RLEN=IF -17 LT 0 THEN 0 ELSE -17;
-*CH#1 - Start
-*SET &&OUTSTRING2=SUBSTR(&HLEN,&&INPSTRING,56,&HLEN,&RLEN,'A25');
-SET &&OUTSTRING2=SUBSTR(38,Proprietary and Confidential of Sprint
,56,38,25,'A25');
-*CH#1 - End
-SET &&STRINGSHF=66 - (38 / 2);
-*
-NOSTR
-*
-*
-SET &PGFTSTR21=Proprietary and Confidential of Sprint ;
-SET &PGFTSTR22= ;
-*
-* Split &&PGFOOT3 (length 80) to 2 strings (&PGFTSTR31 and &PGFTSTR32)
-* with length 55 and 25:
-*
-SET &&INPSTRING=---
;
-INCLUDE gnrpunst.fex
-*$RCSfile: gnrpunst.fex,v $ $Revision: 20.1.1.1 $
-*$Date: 2002/10/13 11:39:14 $ $Author: ccnxt $
-*$State: TLV_1 $ $Locker: $
-*************************************************************
-* NAME : gnrpunst.fex
-*
-* Description: This routine receives the global variable
-* &&INPSTRING with length 80 or less and
-* splits it to 2 strings:
-* &&OUTSTRING1 with length 55 and
-* &&OUTSTRING2 with length 25;
-* Also routine calculates shift of the strings
-* from the beginning of a line.
-*
-*************************************************************
-*
-*************************************************************
-*
-* Initialize output arguments:
-*
-SET &&OUTSTRING1=' ';
-SET &&OUTSTRING2=' ';
-SET &&STRINGSHF=66;
-*
-* Check input string, if it is empty then do not split it:
-*
-IF ---
EQ ' ' GOTO NOSTR;
-*
-* Split the input string:
-*
-SET &HLEN=ARGLEN(80,---
,'I4');
-SET &EXLEN=IF 3 LE 55 THEN 3 ELSE 55;
-*CH#1 - Start
-*SET &&OUTSTRING1=SUBSTR(&HLEN,&&INPSTRING,1,&EXLEN,&EXLEN,'A55');
-SET &&OUTSTRING1=SUBSTR(3,---
,1,3,55,'A55');
-*CH#1 - End
-SET &RLEN=3-55;
-SET &RLEN=IF -52 LT 0 THEN 0 ELSE -52;
-*CH#1 - Start
-*SET &&OUTSTRING2=SUBSTR(&HLEN,&&INPSTRING,56,&HLEN,&RLEN,'A25');
-SET &&OUTSTRING2=SUBSTR(3,---
,56,3,25,'A25');
-*CH#1 - End
-SET &&STRINGSHF=66 - (3 / 2);
-*
-NOSTR
-*
-*
-SET &PGFTSTR31=--- ;
-SET &PGFTSTR32= ;
-*
-*
FILEDEF arca06dm DISK /dbl_sh_unc/fs_users/oprtub01/var/nxt/projs/ar/work/file8
UTKrM
(RECFM F LRECL 100
DEFINE FILE ARCA06DM
LASTROW/A1=' ';
COUNT_1/I9C=1;
OCA_FILE/A50 = 'ar.agency_reason.20170514.input.RPM2.000000274 ';
SEQ_NO_A/A9=EDIT(SEQ_NO);
DET_BAN1/A9=IF REC_NO EQ 1 THEN ' '
ELSE EDIT(DET_BAN);
-* Linux migration start change 1
-*TOT_AMOUNT=TOT_AMOU/100;
-*REA_AMOUNT=REA_AMOU/100;
TOT_AMOUNT / D16.2 =TOT_AMOU/100;
REA_AMOUNT / D10.2 =REA_AMOU/100;
-* Linux migration end change
DET_REC_NO/A9=IF REC_NO EQ 1 THEN ' '
ELSE EDIT(REC_NO);
REA_DATE/A10= IF REC_NO EQ 1 THEN ' '
ELSE EDIT(ASS_DATE,'$$$$99/99/')|EDIT(ASS_DATE,'9999');
NCRE_DATE/A10=IF CRE_DATE EQ ' ' THEN ' '
ELSE EDIT (CRE_DATE,'$$$$99/99/')|EDIT(CRE_DATE,'9999');
NCRE_TIME/A5=IF CRE_TIME EQ ' ' THEN ' '
ELSE EDIT (CRE_TIME,'99:99');
END
-RUN
-IF 0 NE 0 GOTO ERR;
TABLE FILE ARCA06DM
HEADING
-INCLUDE gnrphdr.fex
-*$RCSfile: gnrphdr.fex,v $ $revision$
-*$Date: 2002/10/13 11:39:11 $ $Author: ccnxt $
-*$State: TLV_3 $ $Locker: $
-*************************************************************
-* NAME : gnrphdr.fex
-*
-* PURPOSE : Standard Page Heading for all ENS reports.
-*
-* DESCRIPTION:
-*
-* The report heading uses the following parameters:
-*
-* &REPCODE is the report code (in format XXYY-99-ZZZ)
-*
-* &REPNAMESHF to centrilize the report name
-* (defined in the gnrpdef.fex include file)
-*
-* &REPNAME1 and &REPNAME2 contain the report name
-* (defined in the gnrpdef.fex include file)
-*
-* &&CMPNAMESHF to centrilize the company name
-* (defined in the focbatch.fex)
-*
-* &&CMPNAME contains the company name
-* (defined in the focbatch.fex)
-*
-* &&REPDATE the report date
-* (defined in the focbatch.fex)
-*
-* &&MKTNAMESHF to centrilize the market name
-* (defined in the focbatch.fex)
-*
-* &&MKTNAME contains the market name
-* (defined in the focbatch.fex)
-*
-*
-*************************************************************
-*
-* Display the Standard Page Header:
-*
-* Two spaces inserted btweeen Date: and &&REPDATE
-* inorder to fit the new date Dispaly. Ezra Golan.
-*
"REPORT ARCA-06-DMP <45 OCA INCOMING INTERFACE FILE - DUMP REPORT
<+0 <<116 Page: " <63 SPRINT <116 Date: 07/18/2017"
" <63 Nextel "
-*
" "FILE NAME : PRINT DET_REC_NO AS 'RECORD,NUMBER'
REC_TYPE2 AS 'RECORD,TYPE '
DET_BAN1 AS 'BAN '
REA_TYPE AS 'REASON,TYPE '
REA_CODE AS 'REASON,CODE '
REA_AMOUNT AS 'REASON,AMOUNT '
REA_DATE AS 'REASON,DATE '
-*
BY LASTROW NOPRINT
-*
ON LASTROW SUBHEAD
"---------------------------------------------------------------------------"
" <1 000000001 <12 File Seq No: >"
" <16 Market: Creation Date: Creation Time: "
" <16 Number of Records: Batch Amount: "
"---------------------------------------------------------------------------"
-*
FOOTING BOTTOM
-*
-INCLUDE gnrpftr.fex
-*$RCSfile: gnrpftr.fex,v $ $revision$
-*$Date: 2002/10/13 11:39:10 $ $Author: ccnxt $
-*$State: TLV_1 $ $Locker: $
-*************************************************************
-* NAME : gnrpftr.fex
-*
-* PURPOSE : - Display the Standard Page Footer.
-* - Display the Standard Report Header.
-* - Display the Standard Report Footer.
-*
-* The three functions are separated into different
-* include files since in some cases, reports may
-* not necessarily require the use of all three
-* functions together, but rather just one or two
-* of them.
-*
-*************************************************************
-*
-* Display the Standard Page Footer:
-*
-INCLUDE gnrppgft
-*$RCSfile: gnrppgft.fex,v $ $Revision: 20.1.1.1 $
-*$Date: 2002/10/13 11:39:12 $ $Author: ccnxt $
-*$State: TLV_2 $ $Locker: $
-*************************************************************
-* NAME : gnrppgft.fex
-*
-* PURPOSE : Standard Page Footing for all ENS reports.
-*
-* The report page footing uses the following parameters:
-*
-* &&PGFOOTSHF to centrilize the foopting lines
-* (defined in the focbatch.fex)
-*
-* &PGFTSTRn1 and &PGFTSTRn2 contains the page footing
-* lines, n=1,2,3 (defined in the focbatch.fex)
-*
-*
-*************************************************************
-*
-* Split &&PGFOOT1 (length 80) to 2 strings (&PGFTSTR11 and &PGFTSTR12)
-* with length 55 and 25 and print them:
-*
-******"<&&PGFOOTSHF &PGFTSTR11
-******<+0 &PGFTSTR12"
-*
-* Split &&PGFOOT2 (length 80) to 2 strings (&PGFTSTR21 and &PGFTSTR22)
-* with length 55 and 25 and print them:
-*
-****"<&&PGFOOTSHF &PGFTSTR21
-****<+0 &PGFTSTR22"
-*
-* Split &&PGFOOT3 (length 80) to 2 strings (&PGFTSTR31 and &PGFTSTR32)
-* with length 55 and 25 and print them:
-*
-****"<&&PGFOOTSHF &PGFTSTR31
-****<+0 &PGFTSTR32"
-*
-*
-* NEW Changes For v18_0 requirments to fit the footer text into one line
-* made by Ezra Golan Date : 06/06/96
-*************************************************************
-*
nd is 0
-*************************************************************
-SET &HLEN11=ARGLEN(55,--- ,
'I4');
-SET &PGFTSTR1A=SUBSTR(3,---
,1,3,25,'A25');
-*TYPE HLEN11 &HLEN11
-SET &HLEN21=ARGLEN(55,Proprietary and Confidential of Sprint ,
'I4');
-*TYPE HLEN21 &HLEN21
-SET &PGFTSTR2A=SUBSTR(38,Proprietary and Confidential of Sprint
,1,20,20,'A20');
-*TYPE PGFTSTR2A &PGFTSTR2A
-SET &RLEN21=38-20;
-SET &PGFTSTR2B=SUBSTR(38,Proprietary and Confidential of Sprint
,21,38,25,'A25');
-*TYPE PGFTSTR2B &PGFTSTR2B
-SET &HLEN31=ARGLEN(55,--- ,
'I4');
-SET &PGFTSTR3A=SUBSTR(3,---
,1,3,40,'A40');
-*TYPE HLEN31 &HLEN31
-SET &FOOTLEN=3 + 38 + 3 ;
-SET &SHFFOOT= 66 - (44 / 2);
-*TYPE FOOTLEN &FOOTLEN
"<44 --- <+1 Proprietary and Conf
<+0 idential of Sprint <+1 --- "
-*
-* Display the Standard Report Header:
-*
-INCLUDE gnrpshd
-*$RCSfile: gnrpshd.fex,v $ $revision$
-*$Date: 2002/10/13 11:39:13 $ $Author: ccnxt $
-*$State: TLV_4 $ $Locker: $
-***********************************************************************
-* NAME : gnrpshd.fex
-*
-* PURPOSE : - Display the Standard Report Header.
-*
-* The parameters displayed on the header page are:
-* Report date.
-* System date.
-* System time.
-* Up to 30 report parameters, specific for each report.
-*
-***********************************************************************
-*
-* Changes made by Michael M. to display the SYSDATE in the format
-* MM/DD/YYYY.
-* Note: The changes are relevant only for FOCUS version 6.8.5 and
-* beyond.
-*---------------------------------------------------------------------
-*
-DEFAULT &SYSDATE = ' ';
-SET &SYSDATE=IF EQ ' ' THEN EDIT(07282017,'99/99/9999')
- ELSE ;
-SET &SYSTIME=HHMMSS('A8');
-*
-*
ON TABLE PAGE-BREAK AND SUBHEAD
-*
-*
-INCLUDE gnrphdr.fex
-*$RCSfile: gnrphdr.fex,v $ $revision$
-*$Date: 2002/10/13 11:39:11 $ $Author: ccnxt $
-*$State: TLV_3 $ $Locker: $
-*************************************************************
-* NAME : gnrphdr.fex
-*
-* PURPOSE : Standard Page Heading for all ENS reports.
-*
-* DESCRIPTION:
-*
-* The report heading uses the following parameters:
-*
-* &REPCODE is the report code (in format XXYY-99-ZZZ)
-*
-* &REPNAMESHF to centrilize the report name
-* (defined in the gnrpdef.fex include file)
-*
-* &REPNAME1 and &REPNAME2 contain the report name
-* (defined in the gnrpdef.fex include file)
-*
-* &&CMPNAMESHF to centrilize the company name
-* (defined in the focbatch.fex)
-*
-* &&CMPNAME contains the company name
-* (defined in the focbatch.fex)
-*
-* &&REPDATE the report date
-* (defined in the focbatch.fex)
-*
-* &&MKTNAMESHF to centrilize the market name
-* (defined in the focbatch.fex)
-*
-* &&MKTNAME contains the market name
-* (defined in the focbatch.fex)
-*
-*
-*************************************************************
-*
-* Display the Standard Page Header:
-*
-* Two spaces inserted btweeen Date: and &&REPDATE
-* inorder to fit the new date Dispaly. Ezra Golan.
-*
"REPORT ARCA-06-DMP <45 OCA INCOMING INTERFACE FILE - DUMP REPORT
<+0 <<116 Page: " <63 SPRINT <116 Date: 07/18/2017"
" <63 Nextel "
-*
-*
" "<40 Report Date: 07/18/2017"
"<40 System Date: 07/28/2017"
"<40 System Time: 10.04.23"
"<40 Report Parameters:"
-*
-*
-*
-* Display the Report Parameters (up to 30):
-*
-SET &APPARNUM=0;
-SET &I=1;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 1 + 1;
-IF 2 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 2 + 1;
-IF 3 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 3 + 1;
-IF 4 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 4 + 1;
-IF 5 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 5 + 1;
-IF 6 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 6 + 1;
-IF 7 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 7 + 1;
-IF 8 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 8 + 1;
-IF 9 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 9 + 1;
-IF 10 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 10 + 1;
-IF 11 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 11 + 1;
-IF 12 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 12 + 1;
-IF 13 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 13 + 1;
-IF 14 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 14 + 1;
-IF 15 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 15 + 1;
-IF 16 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 16 + 1;
-IF 17 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 17 + 1;
-IF 18 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 18 + 1;
-IF 19 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 19 + 1;
-IF 20 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 20 + 1;
-IF 21 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 21 + 1;
-IF 22 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 22 + 1;
-IF 23 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 23 + 1;
-IF 24 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 24 + 1;
-IF 25 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 25 + 1;
-IF 26 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 26 + 1;
-IF 27 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 27 + 1;
-IF 28 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 28 + 1;
-IF 29 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 29 + 1;
-IF 30 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 30 + 1;
-IF 31 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 31 + 1;
-IF 32 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 32 + 1;
-IF 33 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 33 + 1;
-IF 34 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 34 + 1;
-IF 35 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 35 + 1;
-IF 36 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 36 + 1;
-IF 37 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 37 + 1;
-IF 38 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 38 + 1;
-IF 39 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 39 + 1;
-IF 40 LE 40 THEN GOTO NEXTAPPAR;
-NEXTAPPAR
-*
-IF empty EQ 'empty' OR empty EQ 'empty' THEN GOTO SKIPAPPAR;
-SKIPAPPAR
-SET &I = 40 + 1;
-IF 41 LE 40 THEN GOTO NEXTAPPAR;
-IF 0 GE 1 GOTO PRNTFTR;
"<50 None."
-*
-PRNTFTR
-SET &APPARNUM = IF 0 EQ 0 THEN 1 ELSE 0;
-SET &SKIPLINES=57 - 1 - 12;
-*
-* the old set is: &SKIPLINES=&&FOC_LINES - &APPARNUM - 16 ;
-* Changd by Ezra Golan .
-*
-*
" -INCLUDE gnrppgft
-*$RCSfile: gnrppgft.fex,v $ $Revision: 20.1.1.1 $
-*$Date: 2002/10/13 11:39:12 $ $Author: ccnxt $
-*$State: TLV_2 $ $Locker: $
-*************************************************************
-* NAME : gnrppgft.fex
-*
-* PURPOSE : Standard Page Footing for all ENS reports.
-*
-* The report page footing uses the following parameters:
-*
-* &&PGFOOTSHF to centrilize the foopting lines
-* (defined in the focbatch.fex)
-*
-* &PGFTSTRn1 and &PGFTSTRn2 contains the page footing
-* lines, n=1,2,3 (defined in the focbatch.fex)
-*
-*
-*************************************************************
-*
-* Split &&PGFOOT1 (length 80) to 2 strings (&PGFTSTR11 and &PGFTSTR12)
-* with length 55 and 25 and print them:
-*
-******"<&&PGFOOTSHF &PGFTSTR11
-******<+0 &PGFTSTR12"
-*
-* Split &&PGFOOT2 (length 80) to 2 strings (&PGFTSTR21 and &PGFTSTR22)
-* with length 55 and 25 and print them:
-*
-****"<&&PGFOOTSHF &PGFTSTR21
-****<+0 &PGFTSTR22"
-*
-* Split &&PGFOOT3 (length 80) to 2 strings (&PGFTSTR31 and &PGFTSTR32)
-* with length 55 and 25 and print them:
-*
-****"<&&PGFOOTSHF &PGFTSTR31
-****<+0 &PGFTSTR32"
-*
-*
-* NEW Changes For v18_0 requirments to fit the footer text into one line
-* made by Ezra Golan Date : 06/06/96
-*************************************************************
-*
nd is 0
-*************************************************************
-SET &HLEN11=ARGLEN(55,--- ,
'I4');
-SET &PGFTSTR1A=SUBSTR(3,---
,1,3,25,'A25');
-*TYPE HLEN11 &HLEN11
-SET &HLEN21=ARGLEN(55,Proprietary and Confidential of Sprint ,
'I4');
-*TYPE HLEN21 &HLEN21
-SET &PGFTSTR2A=SUBSTR(38,Proprietary and Confidential of Sprint
,1,20,20,'A20');
-*TYPE PGFTSTR2A &PGFTSTR2A
-SET &RLEN21=38-20;
-SET &PGFTSTR2B=SUBSTR(38,Proprietary and Confidential of Sprint
,21,38,25,'A25');
-*TYPE PGFTSTR2B &PGFTSTR2B
-SET &HLEN31=ARGLEN(55,--- ,
'I4');
-SET &PGFTSTR3A=SUBSTR(3,---
,1,3,40,'A40');
-*TYPE HLEN31 &HLEN31
-SET &FOOTLEN=3 + 38 + 3 ;
-SET &SHFFOOT= 66 - (44 / 2);
-*TYPE FOOTLEN &FOOTLEN
"<44 --- <+1 Proprietary and Conf
<+0 idential of Sprint <+1 --- "
-*
-* Display the Standard Report Footer:
-* There is no need to print the Standard Report Footer
-* any more : changed by Ezra Golan .
-* -INCLUDE gnrpsft
-*
-* Add CSV and other format to reports
-* Add by Udi 02/12/1998
-INCLUDE gnrphold
-*****************************************************************************
-* NAME : gnrphold.fex
-*
-* PURPOSE : Allows to HOLD report data in a Comma Delimited format
-* (CSV Format)
-*
-*
-*
-*****************************************************************************
-*-SET &ECHO=ALL;
-*----------------------------------------------------------------------------
-SET &HOLDLINES=0;
-*----------------------------------------------------------------------------
END
-RUN
(FOC1346) : FORMAT ERROR: Record 1 , Column 79
(FOC1130) FORMAT CONVERSION ERROR FIELD/KEY : REA_AMOU
-*----------------------------------------------------------------------------
-* Keep the number of the held lines
-*----------------------------------------------------------------------------
-SET &UNAME_RESULT = FGETENV(12,'UNAME_RESULT',20,'A20');
-SET &HOLDLINES= 1;
-IF ((1 EQ 1) AND (1 EQ 1)) THEN GOTO NO_DDHOLD;
-NO_DDHOLD
-*
-CONT1
-*
END
END
-RUN
-IF 0 NE 0 GOTO ERR;
-INCLUDE gnrpempt.fex
-*$RCSfile: gnrpempt.fex,v $ $Revision: 20.1.1.1 $
-*$Date: 2002/10/13 11:39:09 $ $Author: ccnxt $
-*$State: TLV_4 $ $Locker: $
-*************************************************************
-* NAME : gnrpempt.fex
-*
-* PURPOSE : Standard text for empty reports.
-*
-*
-*************************************************************
-*
-IF 1 EQ 0 GOTO NORECORDS;
-GOTO NOMSG
-NOMSG
-INCLUDE gnrpcsv
-******************************************************************************
-* NAME : gnrpcsv
-*
-* PURPOSE : Converts file in ALPHA format to CSV format
-*
-*
-*
-******************************************************************************
-IF 1 THEN GOTO CSVEXIT;
-CSVEXIT
-GOTO NOMSG1
-NOMSG1
-TYPE Dump Focus finished successfully...
Dump Focus finished successfully...
-* Linux Migration Start Change
-IF Linux EQ 'Linux' THEN GOTO LINUX_OS;
-LINUX_OS
-EXIT


WebFOCUS, Linux
Excel, CSV