mainframe - Need to compare the same field in different records with JCL SORT -

-

i have input file, 3rd field in file number. number repeated in same field 30-40 records, when record read has different value in field need number '1' print in first position of following record. e.g.

           7226184019519       317786762  0000000000001pop160            7226184019522       317786762  0000000000001pop160 1          7226139045234       326446460  0000000000001pop160            7226139045242       326446460  0000000000001pop160            7226139045274       326446460  0000000000001pop160            7226139045277       326446460  0000000000001pop160            7226139045280       326446460  0000000000001pop160

i've tried using 'sections' like:

sort fields=copy    outfil fnames=sortout,    sections=(26,9,header3= (1:'1'))

but print number '1' on separate line: 

           7226184019519       317786762  0000000000001pop160            7226184019522       317786762  0000000000001pop160 1                      7226139045234       326446460  0000000000001pop160            7226139045242       326446460  0000000000001pop160            7226139045274       326446460  0000000000001pop160            7226139045277       326446460  0000000000001pop160            7226139045280       326446460  0000000000001pop160

i need overlay i'm not sure how use 'sections'.
note: number above, 317786762 starts in position 26.

amendment

i've figured out how move 1 first position(code below). requirement complete sort '1' printed in position 1 after every 30 records or when number in pos 26,9 changes.

//sysin     dd *    sort fields=copy     inrec ifthen=(when=init,overlay=(101:seqnum,8,zd,        restart=(26,9))),        ifthen=(when=(101,8,zd,eq,30),        overlay=(1:c'1')) /*

this code sets sequence number in pos 101,8. restarts seqnum when there's new value in 26,9. need sequence number restart when value of seqnum 30. far know restart works if value of field changes. can't use logical expressions it.

so question is, know way write sort read sequential file , print '1' in position 1 after every 30 records or after new value found in field.

i'm guessing records fixed-length.

use inrec ifthen=(when=init... temporarily extend records include sequence number. sequence number needs large enough cover maximum number of records in group (and make power of 10 larger). use restart= on sequence number, , specify key field there.

then, in of recent questions, use ifthen=(when=(logicalexpression identify first of group (sequence one) , overlay c'1' @ column one.

use ifoutlen= original record-length, return records original size. ifoutlen says "after completion of ifthen processing, set record-length this". saves having build drop off temporary extension.

procedure different (extend @ first data-position, 5, , must have build return size) variable-length records.


Comments

Post a Comment

Popular posts from this blog

java - Static nested class instance -

-
this question has answer here: java inner class , static nested class 23 answers i came across in java, know static nested class why create instance of 'static'. isn't whole idea of 'static' use without instance? understand concept of inner classes, why (and frankly how possible to) create 'instance' of 'static' member @ ? why this: 1- outerclass.staticnestedclass nestedobject = new outerclass.staticnestedclass(); 2- nestedobject.anestedclassmethod(); and not this: 1- outerclass outerinstance=new outerclass(); 2- outerinstance.staticnestedclass.anestedclassmethod(); use on inner classes, keyword static indicates can access inner class without instance of outer class. for example: public class outer { public static class inner { /* code here. */ } } with construction, can create instance of inn
Read more

c# - Bluetooth LE CanUpdate Characteristic property -

-
i building xamarin.forms cross platform mobile app, uses monkey.robotics bluetoth low energy functionality. connecting mbed based implimentation of custom gatt service . in xamarin c#, triggers characteristic. canupdate property in monkey.robotics? this standard example c# based on: if (characteristic.canupdate) { characteristic.valueupdated += (s, e) => { debug.writeline("characteristic.valueupdated"); device.begininvokeonmainthread( () => { updatedisplay(characteristic); }); isbusy = false; // spin until first result received }; isbusy = true; characteristic.startupdates(); } this has been working, since changed own custom gatt service connecting to, canupdate property false. property , how triggered? me debugging gatt service code. thanks monkey.robotics open sour
Read more

JavaScript - Replace variable from string in all occurrences -

-
ok, know if have character '-' , want remove in places in string javascript, ... someword = someword.replace(/-/g, ''); but, when applying array of characters, s not working ... const badchars = ('\/:*?"<>|').split(''); let filename = title.replace(/ /g, '-').tolocalelowercase(); (let item = 0; item < badchars.length; item++) { // below not work global '/ /g' filename = filename.replace(/badchars[item]/g, ''); } any ideas? /badchars[item]/g looks badchars , literally, followed i , t , e , or m . if you're trying use character badchars[item] , you'll need use regexp constructor, , you'll need escape regex-specific characters. escaping regular expression has been well-covered . using that: filename = filename.replace(new regexp(regexp.quote(badchars[item]), 'g'), ''); but , don't want that. want character class: let filename = title.replac
Read more