mainframegurukul.com

rangab

Hi, How does the combination of WHEN=(logexp) and WHEN=ANY work? Suppose there are these set of records and if I apply these two expressions on this data, how the output will be? Input Data: MERMA 01 2009 NEXTR 02 VERJO 01 2009 VERJ1 02 BARST 01 2009 VERJ2 02 INREC IFTHEN=(WHEN=(7,2,CH,EQ,C'01'),BUI...

rangab

Frank, thank you very much for the quick reply. So, it is a disadvantage to follow the second solution and first solution is the ideal one.

rangab

In continuation to my post, I found another record structure that uses SYNC !! 01 MASTER-DESTINATION-HEADER-RCD SYNC. 05 MSTR-HEADER-ID PIC X(04). 05 MSTR-HOLDING-SOURCE PIC X(01). 05 MSTR-TLR-CODE PIC X(05). 05 MSTR-DETAIL-DATA-BYTE-CNT PIC 9(10). 05 MSTR-FILLER PIC ...

rangab

Hi,

What is the benefit of declaring a field with SYNC?

Code: Select all

05  WS-TOP-MAX-TABLE-SIZE            PIC S9&#40;04&#41; COMP SYNC   
                                               VALUE +1000.

Please explain.

Thanks.

rangab

Hi, Frank. Thank you very much for your help.

Just out of curiosity, I would like to ask how the SPLICE solution would be if FILE-1 is copied first to temporary file and FILE-2 next. This question is to just understand the different possibilities !

Thanks again.

rangab

Frank, let me put both my input files here once again :roll: FILE-1: RECFM=FB, LRECL=80 114D 2007 L03066140000012134800001 114D 2007 L03066140000012134800001 214D 2007 L03066140000011134100001 214D 2007 L03066140000011134100001 314D 2007 L10080140000092110400001 314D 2007 L10080140000092110400001 FI...

rangab

Hi, my mistake.......copy, paste error :x FILE-2: 214D 2007 L03066140000011134100001 164Z 2007 L10080140000010210400001 314D 2007 L10080140000092110400001 124E 2007 L10080140000012110400001 Expected output: 164Z 2007 L10080140000010210400001 124E 2007 L10080140000012110400001 Thanks for asking.

rangab

Hi, 1st Input File: RECFM=FB, LRECL=80 ----+----1----+----2----+----3----+----4 114D 2007 L03066140000012134800001 114D 2007 L03066140000012134800001 214D 2007 L05644140000012068500001 214D 2007 L05644140000012068500001 314D 2007 L10080140000012110400001 314D 2007 L10080140000012110400001 2nd Input ...

rangab

skolusu, Thank you very much for the immediate help.

rangab

Frank, Thanks for the reply.

Yes. Your assumption is correct. The File-1 can have records anywhere between 28000 to 50000. The File-2 can have records upto 1.5 millions.

Thank you.

rangab

Hi, I want to compare FILE-1 & FILE-2 and compare matching records from FILE-2 to output file. FILE-1: RECFM=FB, LRECL=80 TBIG100 TBIG200 TBIG980 FILE-2: RECFM=FB, LRECL=88 XMART_C%F#N_TBIG800_FINTE%AM PRIN%CE%TON_FINTEAM_BAR%^*&SA_TBIG200 OVERLAY*&_COMPO%$%ITT_TBIG100 XMART_CAPT#*_09900_TBIG910 JUM...

rangab

Anuj,

Input:

Code: Select all

RECORD1
RECORD2
RECORD11
RECORD22

Expected output:

Code: Select all

RECORD1RECORD2
RECORD11RECORD22

Please help.

Thanks.

rangab

Hi,

How to copy two continous records to o/p using File-Aid.

Input:

Code: Select all

001 ABC
001 MARANTH289 + 290 + 300
001 BBC
001 PRADENT300 + 320 + 189
001 ABC
001 CAMERO900 + 190 + 980

Required output:

Code: Select all

001 ABC
001 MARANTH289 + 290 + 300
001 ABC
001 CAMERO900 + 190 + 980

Thanks.

rangab

Frank, sorry about it.

rangab

Hi, My input data: This is just a sample record only. A CD20 30T B CD21 20F C CD22 10E Output: ACD2030T BCD2120F CCD2210E I have tried below code but it did not work. //SYSIN DD * $$DD01 COPY IF=(1,EQ,C'A'), ORIF=(1,EQ,C'B'), ORIF=(1,EQ,C'C'), MOVE=(1,1,1), MOVE=(...

mainframegurukul.com

Search found 56 matches

a basic doubt on WHEN=(logexp) and WHEN=ANY

benefits with SYNC

Thanks

again !

Copy records only from File-2 - SPLICE

Copy records for matching key appearing at different places.

Copy two continous records to o/p using File-Aid

Sorry :(

Copy selected records and move to form a single key.