SORT NBCYCLS1
ON ASCENDING KEY
CYCLS1-RECORD-TYPE-CD
VERSION 9 REL. 1.0
CYCLS1-INTR-CMPNY-CD
CYCLS1-WBS-CD-LEVEL-01
CYCLS1-REMITTING-ACCT-ID
CYCLS1-ACCT-ID
CYCLS1-SRVC-LOC-ID
CYCLS1-RESR-ID
CYCLS1-CALLTYP
CYCLS1-SRVC-CD
CYCLS1-TERM-CD
CYCLS1-RATE-PER
CYCLS1-CALL-REC-DT-NUM
CYCLS1-CALL-REC-TM-NUM
USING
NBCYCLI1
USING
NBCYCLI1
OUTPUT PROCEDURE IS
B100-PROCESS-ALL-DSCT THRU
B100-PROCESS-ALL-DSCT-EXIT
OUTPUT PROCEDURE PARA RETURN COMMAND
*-----------------------------------------------------------
NBCC270-READ-CYCLE-REC SECTION.
* DISPLAY 'NBCC270: READING FROM CYCL'
RETURN NBCYCLS1 INTO NBDSCCQ1
AT END
SET EOF-CYCLE-CALL-REC TO TRUE
MOVE WS-HIGH-VALUES
TO DSCC-WBS-CD-LEVEL-01 OF NBDSCCQ1
DSCC-ACCT-ID OF NBDSCCQ1
DSCC-REMITTING-ACCT-ID OF NBDSCCQ1
END-RETURN.
MOVE DSCC-TAX-OFFSET OF NBDSCCQ1 (1:6)
TO DSCC-TAX-ALPHA OF NBDSCCQ1
INITIALIZE DSCC-TAX-OFFSET OF NBDSCCQ1
MOVE DSCC-TAX-OFFSET OF NBDSCCQ1(7:3)
TO DSCC-CURNCY-CD OF NBDSCCQ1
[color=red]MOVE DSCC-TAX-OFFSET OF NBDSCCQ1(10:6)
TO DSCC-EXCHNG-RT OF NBDSCCQ1 [/color]
Font in red colour is the amended code.My worry is i am not able to
see data of input file variable of CYCL-EXCHNG-RT OF NBCYCLQ1 into output file variable DSCC-EXCHNG-RT of NBDSCCQ1.
After the return command why CYCL-EXCHNG-RT data is not returned in to output DSCC-EXCHNG-RT.
I stuggling really hard but not able to find the reason where the data is getting jumped into ouput file so that i can use the reference modification to move data into respective output field.
Joined: 06 Jun 2008 Posts: 8280 Location: Dubuque, Iowa, USA
You have posted a lot of data and very little of it makes sense.
Posting the actual variable definitions is usualy better than posting the map. If I'm reading the code correctly, you are moving the first three bytes of DSCC-SEQ3-DSCT-ELMT-CD to DSCC-CURNCY-CD for some reason. You then move the last three bytes of DSCC-SEQ3-DSCT-ELMT-CD and the first three bytes of DSCC-SEQ3-DRATE-SCHED into DSCC-EXCHNG-RT. This seems counter intuitive to me.
Was this code working before you changed things? If so, look to your changes to find the problem.