I am not able to use ED ( Edit mask) and use it with WRITE WORK and suppress zeros in XXXX-N-SIZE field.
What are we doing?
We are trying to convert ADABAS data to DB2 format data and then verify if all data has been migrated. We are able to convert ADABAS to DB2 and load the data in DB2. Now I am trying to verify all the data. I have have 2 datasets ADABAS datasets has data from ADABAS using WRITE command. second dataset has data from DB2 tables. My plan is to be able to a comparison of both files using Super C in mainframe.
But DB2 data does not have zeros padded before numeric filed but ADABAS data has zeros padded before numeric field. I want to fix this by either suppress zeros in ADABAS file or add zeros in DB2 file.
I am not able to do this , can anyone please suggest/guide/advice ?
01 DDM-VIEW VIEW OF XXXXA 02 XXXX-C-SSSSSS /* (A1) 02 XXXX-N-TABLE /* (A4) 02 XXXX-N-SEQ /* (A3) 02 XXXX-D-UPDATE /* (A6) 02 XXXX-N-TIME /* (A5) 02 XXXX-N-SIZE /* (N4) 01 DB2-XXXXA 02 ISN (N10) 02 XXXX_C_SSSSSS (A1) 02 XXXX_N_TABLE (A4) 02 XXXX_N_SEQ (A3) 02 XXXX_D_UPDATE (A6) 02 XXXX_N_TIME (A5) 02 XXXX_N_SIZE (A5) /* N4 + SIGN 02 XXXX_S_KEY (A8) /* SUPER-DESCRIPTOR MOVE EDITED DDM-VIEW.XXXX-N-SIZE (EM=-9999) TO DB2-XXXXA.XXXX_N_SIZE WRITE WORK 1 DDM-VIEW.XXXX-C-SSSSSS DDM-VIEW.XXXX-N-TABLE DDM-VIEW.XXXX-N-SEQ DDM-VIEW.XXXX-D-UPDATE DDM-VIEW.XXXX-N-TIME DDM-VIEW.XXXX-N-SIZE BROWSE STAGING.ADABAS Command ===> 004400191080109:220399 <--- ZERO is added before 399 size field 005700291090207:130399 004700191080109:261224 BROWSE .STAGING.DB2 Command ===> 004400191080109:22399 <-- zero is not added before 399 size field 005700291090207:13399 004700191080109:261224
in DB2 field XXXX_N_SIZE is SMALLINT 2