Re: DFSort query
My Apologies Kolusu for wrong details inputted Thanks Much for the sample job and it is working good for my requirement. Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DFSort query
Hi All- In the below Data we need to extract with in the cross ref nbr , if seq Nbr =1 get Pacct_NBR and its related acct nbrs from the set In the below dataset for cross ref nbr = 24538 we have 2 sets of data and 24531 we have 1 set . Acct _NBR Pacct_NBR LAST_CHANGE_TS CROSS_REF_NBR SEQ_NBR 600392811 1762220138659 2024-04-18-10.38.09.570030 24538 1 505756281 1500013748790 2024-04-18-10.38.09.570030 24538 2 593830611500013748790 2024-04-18-10.38.09.570030 24538 3 592670711500013748790 2024-04-18-10.38.09.570030 24538 4 505756281 1500013748790 2024-01-15-08.05.14.038792 24538 1 593830611500013748790 2024-01-15-08.05.14.038792 24538 2 592670711500013748790 2024-01-15-08.05.14.038792 24538 3 600392811 1762220138659 2024-01-15-08.05.14.038792 24538 4 600392561 1762220138631 2024-01-15-08.05.14.038792 24531 1 Output Acct _NBR Pacct_NBR 600392811 1762220138659 505756281 1762220138659 593830611762220138659 592670711762220138659 505756281 1500013748790 593830611500013748790 592670711500013748790 600392811 1500013748790 600392561 1762220138631 Data size Acct _NBR 10 bytes Pacct_NBR 15 bytes LAST_CHANGE_TS 20 bytes CROSS_REF_NBR 5 bytes SEQ_NBR 2 bytes Could someone please let me know how we can build this data using dfsort ? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DFsort error message
Hi All - We are getting a sort error on a huge file . Below are the details from log Parm cards used SORT FIELDS=COPY Error Log details ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS ICE088I 0 ITGB9059.STEP02 .SORT, INPUT LRECL = 317, BLKSIZE = 27896, TYPE = ICE093I 0 MAIN STORAGE = (MAX,33554432,33554432) ICE156I 0 MAIN STORAGE ABOVE 16MB = (33497072,33497072) ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y, ICE128I 0 OPTIONS: SIZE=33554432,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT= ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT= ICE131I 0 OPTIONS: TMAXLIM=33554432,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE,EXITC ICE133I 0 OPTIONS: HIPRMAX=0 ,DSPSIZE=2000,ODMAXBF=2097152,SOLRF=N,VLLONG=N ICE235I 0 OPTIONS: NULLOUT=RC0 ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=2000 ,EXPOLD=MAX,E ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN ICE889I 0 CT=MAX , SB=3, L=0, D=, CCW=1MAM ICE902I 0 O I PP11 ICE906I 1 ST=ABOVE,SR=33497072,RC=0 ICE907I 1 ST=ABOVE,SA=33497056,NF=1,LF=33497056,SF=33497056 ICE906I 1 ST=BELOW,SR=98320,RC=0 ICE907I 1 ST=BELOW,SA=49152,NF=1,LF=49152,SF=49152 ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2119680 ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2119680 ICE855I 0 SORTOUT : TX=N, R=J, L=J, B=D, BL=0, BR=0, DCT=37, VS=N, RU=X, SB=8 ICE210I 0 SORTOUT : EXCP USED, LRECL = 317, BLKSIZE = 27896, TYPE = FB ICE751I 2 EF-I80638 CB-NONE F0-NONE DA-I76950 ICE185A 0 AN SE37 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE Job Step work file details . Allocated SORTWK50 files XXSORTWK09 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) XXSORTWK10 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) XXSORTWK11 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) XXSORTWK12 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) XXSORTWK13 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) XXSORTWK14 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) XXSORTWK15 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) XXSORTWK16 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) XXSORTWK17 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) XXSORTWK18 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) XXSORTWK19 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,()) IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200)) //SORTOUT DD DSN=KGN01.PS.RPCFIL.AMT.ACTV.UNLD.FINAL1.HDR, //SPACE=(CYL,(1200,500),RLSE),VOL=(,,,99), //RECFM=FB,DSORG=PS, //DISP=(NEW,CATLG,DELETE),LRECL=317,BLKSIZE=0 //SYSINDD DSN=MK.PS.PROD.PARMLIB(PSJH06P),DISP=SHR Could someone please let us know what needs to be done here? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Dfsort Overlay error
Thanks a lot Kolusu. Sorry i didn't articulate what is documented in the user guide in the right way . Anyway thanks again for all the help .. Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Dfsort Overlay error
Hi Kolusu - Here is what i am getting . Could you please let me what changes to be made ? ICE000I 1 - CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R4 - 13:36 ON FRI AU OPTION COPY OUTREC IFTHEN=(WHEN=(35,10,CH,EQ,X'', AND,25,10,CH,GT,X''), OVERLAY=(35:25,10,TOGREG=Y4T(-),ADDDAYS,+120,TOGREG=Y4T(-))) $ ICE007A E SYNTAX ERROR ICE751I 0 C5-I79518 C6-I90068 C7-I76949 C8-I75151 E7-I76949 ICE052I 3 END OF DFSORT Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Dfsort Overlay error
Thanks Kolusu for sharing the link . still i am not able to figure out the same . Modified as below and still not working OPTION COPY OUTREC IFTHEN=(WHEN=(35,10,CH,EQ,X'', AND,25,10,CH,GT,X''), OVERLAY=(35:25,10,Y4T,ADDDAYS,+120)) Could you please help me figure out where the issue is ? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Dfsort Overlay error
Hi - I have a file of LRECL 44 and need to overlay a date in Position 35 by adding 120 days to the date at position 25 The overlay to be done based also on condition . Coded as below OPTION COPY OUTREC IFTHEN=(WHEN=(35,10,CH,EQ,X'', AND,25,10,CH,GT,X''), OVERLAY=(35:25,10,ADDDAYS,+120)) Date format at position 25 is -MM-DD could someone please let me know what the issue is in the control card as it is giving error . Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Soc7 abend
ok Jay. so, what you say is if the definitions are as below then we should be good. The '-' sign is part of the variable name in spool display. 05 INP-VNDR-PACK-COST PIC 9(9)V9(2). 05 WS-VNDR-PACK-COST PIC S9(9)V9(2) COMP-3. Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Soc7 abend
Hi Listers I was looking a Cobol code module developed and we ran in to a sco7 issue. I am not able to figure why this is abending. Any help to fix is much appreciated. Here is the spool display i have captured. 05 INP-VNDR-PACK-COST PIC 9(9)V9(4). 05 WS-VNDR-PACK-COST PIC S9(9)V9(4) COMP-3. INP-VNDR-PACK-COST -035.65 4CDD6EDCD6DCCD6CDEE46FFF4FF4 095705549071320362300035B650 --- WS-VNDR-PACK-COST -0 4EE6EDCD6DCCD6CDEE46F444 06205549071320362300 --- MOVE INP-VNDR-PACK-COST TO WS-VNDR-PACK-COST -> Here it is failing CEE3207S The system detected a data exception (System Completion Code=0 4CCCE4E88489488A88A8848488A848A889A89944EAAA894C8A8994C9887F 03553207203850282354045353354010413105735739650D2823540364735396503645E0 Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
dfsort - Reformat file
Hi , We have a input PIPE DELIMITED file as follows of lrecl = 80. Need to remove the leading spaces with out disturbing the 3 column values 1652087|..0049|..OPTICAL |..0170| 2130994|..0006|..STATIONERY |..0716| 2199447|..0078|..SERVE OVER PIZZA|..0410| 2199449|..0078|..SERVE OVER PIZZA|..0410| o/p has to be 1652087|0049|OPTICAL |0170| 2130994|0006|STATIONERY |0716| 2199447|0078|SERVE OVER PIZZA|0410| 2199449|0078|SERVE OVER PIZZA|0410| i used OUTREC BUILD=(1,80,SQZ=(SHIFT=LEFT)) and it didn't work out Could someone pls let me know how to make this ? Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSort Create Filename
Thanks a lot Kolusu. it worked like a charm !! Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSort Create Filename
My sincere apologies Kolusu . I have updated the answers in-line >> If header comes in to this file for whatever reason we need to skip and >> then build this filename Q. How do you distinguish the header ? Any indicator? You don't even show a sample. ***Header if comes will start with product_nbr >> The below fields remain the same for all the rows CompKey - 19 to 22 >> Position Patnum - 26 to 30 Position Q. You do realize that you did NOT use "Fixed Font or Courier New" font to retain the spacing in the sample data ? okay * Top of Data * .0050425063|..4138|..12211|.. 0|.. 0|.. 0|.. 0| .0050996097|..4138|..12211|.. 0|.. 0|.. 0|.. 0| .0009077849|..4138|..12211|..1.50|..1.50|.. .0050761685|..4138|..12211|..2.20|..00013.20|.. .0050124393|..4138|..12211|.. 0|.. 0|.. 0|.. 0| .0050997036|..4138|..12211|.. 0|.. 0|.. 0|.. 0| .0009646052|..4138|..12211|..1.24|..00041.21|.. Q. What are the DCB properties of the input file and the output file? ** DCB of input will be Lrecl = 500 bytes and o/p will be 80 bytes >> Performdta___.csv Q. Where are you getting the mmdd_hhmmss value? Your sample input does not have it. Is it the CURRENT DATE and CURRENT TIME ? ** Yes it is current data and time >> o/p will be Performdta_12211_4138_20220620_192925.csv Q. Does your input always contain ONLY 1 Patnum+compkey combination ? What happens if you have another patnum+compkey combo ? ***1 file will have ONLY 1 Patnum+compkey combination Q. Is the patnum+compkey available on ALL records? Or does it vary? ** Yes all rows will have Patnum+compkey combination Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DFSort Create Filename
Hello - We have a input file as follows. * Top of Data * .0050425063|..4138|..12211|.. 0|.. 0|.. 0|.. 0| .0050996097|..4138|..12211|.. 0|.. 0|.. 0|.. 0| .0009077849|..4138|..12211|..1.50|..1.50|.. .0050761685|..4138|..12211|..2.20|..00013.20|.. .0050124393|..4138|..12211|.. 0|.. 0|.. 0|.. 0| .0050997036|..4138|..12211|.. 0|.. 0|.. 0|.. 0| .0009646052|..4138|..12211|..1.24|..00041.21|.. The below fields remain the same for all the rows CompKey - 19 to 22 Position Patnum - 26 to 30 Position If header comes in to this file for whatever reason we need to skip and then build this filename The filename in a output dataset like as below. Performdta___.csv o/p will be Performdta_12211_4138_20220620_192925.csv Could someone let me know how we can do the same in dfsort ? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort -TASK I/O TABLE EXCEEDS TIOT LIMIT OF 0064K
Hi edjaffe - I am not sure how to make that changes in then job . would you be able to let me know what changes i should make in the job ? Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
dfsort -TASK I/O TABLE EXCEEDS TIOT LIMIT OF 0064K
Hello - We are splitting a very large files in to 750 files dynamically based on key , which means if the key changes the file is moved to the respective ones we are getting the message STEPBB - TASK I/O TABLE EXCEEDS TIOT LIMIT OF 0064K STEPBB - STEP WAS NOT EXECUTED. and hence the step is not getting executed . File LRECL = 500 Key is from position 19,4. Here is the control card used SORT FIELDS=COPY OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(19,4),PUSH=(501:ID=3)) OUTFIL FNAMES=OUT001,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,001) OUTFIL FNAMES=OUT002,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,002) OUTFIL FNAMES=OUT003,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,003) OUTFIL FNAMES=OUT004,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,004) OUTFIL FNAMES=OUT005,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,005) OUTFIL FNAMES=OUT006,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,006) OUTFIL FNAMES=OUT007,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,007) OUTFIL FNAMES=OUT008,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,008) --- -- OUTFIL FNAMES=OUT749,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,749) OUTFIL FNAMES=OUT750,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,750) so could some let me know how to get this fixed ? of is there any other way we can build this one ? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT- SORT OUT FILE Sequence is not in order
Thanks a lot Massimo. It worked like a charm :) Thanks, Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DFSORT- SORT OUT FILE Sequence is not in order
Hi - We have a Input file of LRECL =80 as below 105_1_10893_1_28 1_10893_1_28 FAMILY SHARE CRISPS 1_10893_1_28 10893_1_28 SHARING CRISPS 10893_1_28 1_28 SHARING CRISPS 1_28 28 SNACKS 28 EDIBLE GROCERY 105_1_10893_1_28 1_10893_1_28 FAMILY SHARE CRISPS 1_10893_1_28 10893_1_28 SHARING CRISPS 10893_1_28 1_28 SHARING CRISPS 1_28 28 SNACKS 28 EDIBLE GROCERY 105_1_10893_1_29 1_10893_1_29 FAMILY SHARE CRISPS-NEW 1_10893_1_29 10893_1_29 SHARING CRISPS 10893_1_29 1_29 SHARING CRISPS 1_29 29 SNACKS 29 EDIBLE GROCERY 105_1_10893_1_28 1_10893_1_28 FAMILY SHARE CRISPS 1_10893_1_28 10893_1_28 SHARING CRISPS 10893_1_28 1_28 SHARING CRISPS 1_28 28 SNACKS 28 EDIBLE GROCERY 105_1_10893_1_29 1_10893_1_29 FAMILY SHARE CRISPS-NEW 1_10893_1_29 10893_1_29 SHARING CRISPS 10893_1_29 1_29 SHARING CRISPS 1_29 29 SNACKS 29 EDIBLE GROCERY Expected output 105_1_10893_1_28 1_10893_1_28 FAMILY SHARE CRISPS 1_10893_1_28 10893_1_28 SHARING CRISPS 10893_1_28 1_28 SHARING CRISPS 1_28 28 SNACKS 28 EDIBLE GROCERY 105_1_10893_1_29 1_10893_1_29 FAMILY SHARE CRISPS-NEW 1_10893_1_29 10893_1_29 SHARING CRISPS 10893_1_29 1_29 SHARING CRISPS 1_29 29 SNACKS 29 EDIBLE GROCERY Output Received ** This output disturbed the data sequence . 1_10893_1_2810893_1_28 SHARING CRISPS 1_10893_1_2910893_1_29 SHARING CRISPS 1_2828 SNACKS 1_29 29 SNACKS 105_1_10893_1_28 1_10893_1_28 FAMILY SHARE CRISPS 105_1_10893_1_29 1_10893_1_29 FAMILY SHARE CRISPS-NEW 10893_1_28 1_28 SHARING CRISPS 10893_1_29 1_29 SHARING CRISPS 28 EDIBLE GROCERY 29 EDIBLE GROCERY i have used the below ICETOOL sort card //TOOLIN DD * SELECT FROM(IN) TO(OUT) ON(1,80,CH) FIRST /* //CTL1CNTL DD * SORT FIELDS=COPY /* The above sort card is not working as expected. Could someone let me know how the sort card to be corrected . Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT Header + Detail count match
Thanks a lot Kolusu. It worked great . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DFSORT Header + Detail count match
Hi,
We are getting 1 3rd part file with the layout as follows. Here in header 1-17
bytes is the count followed by Pipe & Date. The Rest of the lines is the detail
lines .
The process should not proceed if the count in header is not matching with the
detail line count.
7|2020-12-09
980012589|04937|03448
980010506|04937|02698
980001772|04937|03288
000276258|04937|03788
980012589|04936|03448
980010506|04936|02698
980001772|04936|03288
I coded the below DFSORT job , but it is not working . Could some one please
let me know where the issue is ?
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=PNS2S3.T1.F1.F1,DISP=SHR
//SORTOUT DD DSN=&K,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,BUILD=(80X),
TRAILER1=('DATA_COUNT,+',COUNT-1=(M11,LENGTH=17))
/*
//STEP02 EXEC PGM=SORT,PARM='RC16=ABE'
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&K,DISP=SHR
//SORTIN DD DSN=PNS2S3.T1.F1.F1,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSINDD *
OPTION COPY,NULLOUT=RC16,STOPAFT=1
INCLUDE COND=(01,17,BI,EQ,DATA_COUNT)
//*
Regards
Ron T
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SFTP Sortcard creating using DFSORT
Thanks a lot Kolusu .. Regards Ron -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SFTP Sortcard creating using DFSORT
Thanks a lot Kolusu.. it worked like a charm !
Could you please help me to understand the below card as to how it is picking
the store_nbr and create
NREC PARSE=(%=(REPEAT=2,ENDAT=C'}'),
%01=(ENDBEFR=C'{',
ENDBEFR=C' ',
FIXLEN=8)),
BUILD=(C' SPUT ''',
C'K01.BB.RST.PTEM.FUTR.RTLDTA.REPT01''',
C' FUTRETAIL_',
DATE1(-)-1,
%01,JFY=(SHIFT=LEFT,
LEAD=C'_',
TRAIL=C'.CSV',
LENGTH=16))
Regards
Ron T
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SFTP Sortcard creating using DFSORT
Hello- I am creating a dynamic SFTP sortcard using DFSORT, here in the Input file the Store_nbr is at position 40. I need the file to created as SPUT 'K01.BB.RST.PTEM.FUTR.RTLDTA.REPT01' FUTRETAIL_2020-12-07_33.csv but the issue is the store_nbrs are of different length, the .csv is not getting created correctly . Could some one let me know how we can append the .csv also when the store is of variable length Input File ---+1+2+3+4+ Top of Data ITEM_NBR } ITEM_DESC1 } STORE_NBR } 500849599 }ENT MASSA TORTA 2 KG }33 500878286 }CAST DE CAJU TS 120G }331 500862526 }MTR MASS LASANH SECA }3 500877131 }PERU INTEIR C MIUDOS }3323 500034169 }ACUC FIT UNIAO }3311 500832360 }AMPOLA PANTENE UNIDA }33 output card generated SPUT 'K01.BB.RST.PTEM.FUTR.RTLDTA.REPT01' FUTRETAIL_2020-12-07_33 SPUT 'K01.BB.RST.PTEM.FUTR.RTLDTA.REPT01' FUTRETAIL_2020-12-07_331 SPUT 'K01.BB.RST.PTEM.FUTR.RTLDTA.REPT01' FUTRETAIL_2020-12-07_3 SPUT 'K01.BB.RST.PTEM.FUTR.RTLDTA.REPT01' FUTRETAIL_2020-12-07_3323 SPUT 'K01.BB.RST.PTEM.FUTR.RTLDTA.REPT01' FUTRETAIL_2020-12-07_3311 SPUT 'K01.BB.RST.PTEM.FUTR.RTLDTA.REPT01' FUTRETAIL_2020-12-07_33 Control Card used SORT FIELDS=COPY OUTREC BUILD=(1:C'SPUT ', 6:C,7:C'K01.BB.RST.PTEM.FUTR.RTLDTA.REPT01', 41:C, 43:C'FUTRETAIL_', 53:DATE1(-)-1,63:C'_',64:40,4,21X) Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort remove spaces
paul- this was a typo error , what the output i got from my control card is below 645|CASILLERODELDIABLO|VHOCASILLERODIABLO| Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort remove spaces
Anthony - The file has data as below also 000657|VHO TRIVENTO RESERVA |MALBEC 750ML 007762|FJAO PTO CAMIL |T1 1KG 007762|FJAO PTO CAMIL |T1 1KG 007762|FJAO PTO CAMIL |T1 1KG 007762|FJAO PTO CAMIL |T1 1KG 007762|FJAO PTO CAMIL |T1 1KG 007762|FJAO PTO CAMIL |T1 1KG 007762|FJAO PTO CAMIL |T1 1KG 007762|FJAO PTO CAMIL |T1 1KG 007762|FJAO PTO CAMIL |T1 1KG 007762|FJAO PTO CAMIL |T1 1KG 007762|FJAO PTO CAMIL |T1 1KG Hence , coding fixed length OUTREC will not solve the problem Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort remove spaces
thanks a lot Massimo . it worked great !! Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
dfsort remove spaces
Hello I have a sample file as below and we would need to remove the spaces 000645|VHO CASILLERO DIABLO |PINOT NOIR 750ML | 000645|VHO CASILLERO DIABLO |PINOT NOIR 750ML | 000645|VHO CASILLERO DIABLO |PINOT NOIR 750ML | 000645|VHO CASILLERO DIABLO |PINOT NOIR 750ML | 000645|VHO CASILLERO DIABLO |PINOT NOIR 750ML | 000645|VHO CASILLERO DIABLO |PINOT NOIR 750ML | 000645|VHO CASILLERO DIABLO |PINOT NOIR 750ML | 000645|VHO CASILLERO DIABLO |PINOT NOIR 750ML | 000645|VHO CASILLERO DIABLO |PINOT NOIR 750ML | i have coded as below SORT FIELDS=COPY INREC OVERLAY=(001:001,010,UFF,M10,LENGTH=10, 012:012,025,UFF,M10,LENGTH=25, 038:038,025,UFF,M10,LENGTH=25, 001:001,2500,SQZ=(SHIFT=LEFT)) but the output i am getting is as below 645|0|750|CASILLERODELDIABLO|VHOCASILLERODIABLO| 645|0|750|CASILLERODELDIABLO|VHOCASILLERODIABLO| 645|0|750|CASILLERODELDIABLO|VHOCASILLERODIABLO| 645|0|750|CASILLERODELDIABLO|VHOCASILLERODIABLO| 645|0|750|CASILLERODELDIABLO|VHOCASILLERODIABLO| 645|0|750|CASILLERODELDIABLO|VHOCASILLERODIABLO| 645|0|750|CASILLERODELDIABLO|VHOCASILLERODIABLO| 645|0|750|CASILLERODELDIABLO|VHOCASILLERODIABLO| 645|0|750|CASILLERODELDIABLO|VHOCASILLERODIABLO| here we can see that the data "VHO CASILLERO DIABLO " spaces also got removed . is there a way we can get data as follows 000645|VHO CASILLERO DIABLO|PINOT NOIR 750ML| Could some let me know how this can be done ? Thanks. Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort file split
Thanks a lot Kolusu.. it worked like a charm :) mazimo- the solution provided did not work for me . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
dfsort file split
Hello- i have a file which has a header and detail records , i want to split the file based on value and here below is the one i have coded //SPLITEXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=PYU678S.ITR1.FUTR.RTLDTA.UNLOAD,DISP=SHR //OUT01DD SYSOUT=* //OUT02DD SYSOUT=* //OUT03DD SYSOUT=* //OUT04DD SYSOUT=* //OUT05DD SYSOUT=* //SYSINDD * SORT FIELDS=COPY OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(40,5),PUSH=(651:ID=2)) OUTFIL FNAMES=OUT01,BUILD=(1,650),INCLUDE=(651,2,ZD,EQ,01) OUTFIL FNAMES=OUT02,BUILD=(1,650),INCLUDE=(651,2,ZD,EQ,02) OUTFIL FNAMES=OUT03,BUILD=(1,650),INCLUDE=(651,2,ZD,EQ,03) OUTFIL FNAMES=OUT04,BUILD=(1,650),INCLUDE=(651,2,ZD,EQ,04) OUTFIL FNAMES=OUT05,BUILD=(1,650),INCLUDE=(651,2,ZD,EQ,05) /* Here , i want to add the header in the OUT01-05 files . is there a way we can do in the same step. Sample input data as follows *** Top of Data RTPOSY_NBR } PRREM_DESC1 } PSORE_NBR } RETAIL_TYPE_DESC } RETAIL_AMT 500127657 }NECT CY ABACAXI }1141 }SBH - Base Especial 500792452 }NECT CY UVA 1L }1141 }SBH - Base Especial 500792451 }NECT CY MARACUJA 1L }1141 }SBH - Base Especial 500827656 }NECT CY MANGA}1151 }SBH - Base Especial 500840785 }NECT CY PESSEGO L 1L }1151 }SBH - Base Especial 500759650 }ALC GEL GB CLAS }1181 }SBH - Base Especial 500759651 }ALC GEL GB BLUE }1181 }SBH - Base Especial 500766705 }ALC GEL GB CLASSIC }1191 }SBH- Base Especial 500839893 }NECT CY LARANJ 1L}1191 }SHB - Base Especial Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSort to pull the latest record date
Thanks a lot Kolusu for the help.. it worked like a charm!! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DFSort to pull the latest record date
Hello We are using DFSORT utility to extract the latest record for a store/item/po and below is the sample file item_nbr| Store_nbr|Po_nbr|item_date|mode| 00604|9137|1100276393|2017-12-26|7|DSD | 00604|9137|1100278550|2018-01-09|6|DSD | Here we need to pull the 2'nd record to the Output as this is the latest date . Could someone please let me know how to achieve the same Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: sort join keys not correctly working
Thanks a Lot Kolusu for the information . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
sort join keys not correctly working
Hello We are using DFSORT and we have a input file as follows File- 1 (key 12 bytes) 998962 998969 998976 99905 99921 0001 0002 0003 0006 0007 0016 0019 0073 0092 File -2 (key 12 bytes 2 73 18 100907 101007 101749 101887 101894 101903 102081 102093 102101 Sort card coded JOINKEYS FILES=F1,FIELDS=(1,12,A) JOINKEYS FILES=F2,FIELDS=(1,12,A) REFORMAT FIELDS=(F1:01,3421,F2:01,39,?) OPTION COPY JOIN UNPAIRED,F1,F2 OUTFIL FNAMES=BOTH, INCLUDE=(3461,1,CH,EQ,C'B'),BUILD=(1,515,516:3435,12,528:528,2894) As the 1'st file has leading zeros for some of the records 2.73 are not getting matched . could someone please let me know how to get this addressed? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort Jcl to build a Update table control card
Thanks a bunch Kolusu.. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort Jcl to build a Update table control card
ok thanks a lot Kolusu.fyi , we are using DFSORT and not Syncsort . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Sort Jcl to build a Update table control card
Hello
We have input file with around 6500 rows as below and would need to build a
control card to update the DB
US1234567897272 -(1st 2 bytes countrycode,next 9 bytes item number ,next 4
bytes PLU nbr)
I need to generate a SQL UPDATE code generator like below. ("?" need to be
pulled from the file )
UPDATE K1GHGMT.RTALABLE_ITKM_SG
SET LAST_CHG_TIMESTAMP = CURRENT TIMESTAMP
, LAST_CHANGE_USERID = 'WKYT'
WHERE COUNTRY_CODE = ?
and PLU_ITEM_NBR =?
and item_nbr = ?
commit ;
Could some let me know how this can be done using SORT (DFSORT) jcl.
Regards
Ron T
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SFTP Get
this is what we use here ,so how is this we need to handle ? //STEP02 EXEC PGM=BPXBATSL,REGION=0M, // PARM='PGM /usr/lpp/ssh2/bin/sftp2 // -B //DD:BATCHIN' //SYSTSPRT DD SYSOUT=* //STDOUT DD SYSOUT=* //STDENV DD DSN=SYS1.TECSSH.PARMLIB(SSHENV),DISP=SHR _BPXK_AUTOCVT=ON _BPX_SHAREAS=NO _BPX_BATCH_UMASK=0022 SSH_DEBUG_FMT="%W(72)(2) %Dd/%Dt/%Dy %Dh:%Dm:%Ds:%Df %m/%s:%n:%f %M" _BPXK_JOBLOG=STDERR _EDC_ADD_ERRNO2=1 //* //BATCHIN DD DSN=J01.MKS.IT057.STORE.FILE.ONE.FTPCNTL,DISP=SHR Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SFTP Get
it is IBM z/OS SFTP -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SFTP Get
Hello. We have a a job that runs every 30 mins , this job will pulls a text file from a windows server and loads to the Mainframe dataset . In some-cases the file is not present and FTP step fails . I need to set this to a normal completion even if the file is not present . Please let me know how this is to be handled? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SFTP Special Charcters
Hello we are doing a SFTP from Mainframe to Windows machine (EBCDIC to ASCII) using reflection FTP client and we are seeing some special characters in the file is getting translated to others . For e.g Á (x'65') to 'Ý' x'AD' Is there a way we can keep this data ASIS during the ftp ? if so how this can be done ? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Email report from jcl
Ok Tony. But still the contents gets attached to the attachment . Thanks. Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Email report from jcl
Done as below , but still no changes. The below txt gets in the attached file // DD * --SIMPLE BOUNDARY CONTENT-TYPE: TEXT/PLAIN CONTENT-DISPOSITION: ATTACHMENT --SIMPLE BOUNDARY-- Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Email report from jcl
ok. i checked now and there is no message like EZD1816I in job log. Thanks! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Email report from jcl
i have changed now to as below MIME-VERSION: 1.0 CONTENT-TYPE: TEXT/PLAIN CONTENT-DISPOSITION: ATTACHMENT; FILENAME=DIVRGRPT.TXT but still the below is getting written in the attachment --SIMPLE BOUNDARY CONTENT-TYPE: TEXT/PLAIN CONTENT-DISPOSITION: ATTACHMENT; Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Email report from jcl
Hi All. i am only getting the file attached correctly when i am giving the below and then this text is going to get embed in the file also. Is there any other to do the same ? I don't want this contents to be attached when the user receives the report . The LRECL of the files is 4500 // DD * --SIMPLE BOUNDARY CONTENT-TYPE: TEXT/PLAIN CONTENT-DISPOSITION: ATTACHMENT; Job details as follows //STEP14 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=G3S2.VNDR.PRCE.HDR,DISP=SHR // DD * --SIMPLE BOUNDARY CONTENT-TYPE: TEXT/PLAIN CONTENT-DISPOSITION: ATTACHMENT; // DD DISP=SHR,DSN=G3S2.VNDR.SAME.PRCE.REPORT // DD DISP=SHR,DSN=G3S2.VNDR.SAME.PRCE.EMAILAT //SYSUT2 DD SYSOUT=(B,SMTP) //SYSINDD DUMMY //* CONTENTS IN G3S2.VNDR.PRCE.HDR HELO SMTP MAIL FROM: RCPT TO: DATA FROM: TO: SUBJECT:SECUREMAIL TODAY'S VENDOR-CITY DIVERGENCE REPORT MIME-VERSION: 1.0 CONTENT-TYPE: MULTIPART/MIXED; BOUNDARY="SIMPLE BOUNDARY" CONTENT-TYPE: TEXT/PLAIN CONTENT-DISPOSITION: ATTACHMENT; FILENAME=DIVRGRPT.TXT G3S2.VNDR.SAME.PRCE.REPORT -> DIVRGRPT.TXT DSN=G3S2.VNDR.SAME.PRCE.EMAILAT -> HERE THE VALUE IS "." Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort job to get price variance records
Thanks a lot Kolusu.. You are amazing to say the least !!! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort: Sort job to get price variance records
Ok Elardus. I will paste the requirement and output files generated again We have a FB File LRECL = 80 bytes and here below is the layout. Buy_price is at position 65 of length 10 bytes . We need to pull those item nbrs which has same UPC,Vendor nbr ,State Code but there is price difference. Could anyone let me know how this to be done using dfsort. Input file :- ITEM NUMBER UPC_NBR VendorNbr STATE_CODE BUY_PRICE 50338 789997580026.00 36052910DF 96.12 50338 789997580026.00 36052910DF 96.12 50338 789997580026.00 36052910DF 95.12 50318 789997580026.00 36052910DF 95.12 50318 789997580026.00 36052911DF 95.12 50318 789997580026.00 36052911DF 95.12 Desired o/p 50338 789997580026.00 36052910DF 96.12 50338 789997580026.00 36052910DF 96.12 50338 789997580026.00 36052910DF 95.12 Code created: - //STEP03 EXEC SORT //SORTIN DD * 50338 789997580026.00 36052910 DF 96.12 50338 789997580026.00 36052910 DF 96.12 50338 789997580026.00 36052910 DF 95.12 50318 789997580026.00 36052910 DF 95.12 50318 789997580026.00 36052911 DF 95.12 50318 789997580026.00 36052911 DF 95.12 //SORTOUT DD DSN=T01.RXVD.PULL, //SPACE=(CYL,(50,50),RLSE),VOL=(,,,99), //DISP=(NEW,CATLG,DELETE) //SYSINDD * SORT FIELDS=(1,37,CH,A) OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,37),PUSH=(81:65,10)), IFTHEN=(WHEN=(64,10,CH,NE,81,10,CH),OVERLAY=(92:C'P')) OUTFIL FNAMES=SORTOUT,REMOVECC,NODETAIL, INCLUDE=(92,1,CH,EQ,C'P'), SECTIONS=(1,64,TRAILER3=(1,64,COUNT=(EDIT=())),65,10) /* output file Generated - 50318 789997580026.00 36052910 DF 1 50318 789997580026.00 36052911 DF 2 50338 789997580026.00 36052910 DF 3 I am not sure whether this o/p is correct . Also for the Joinkeys . This below is what i have coded //STEP01 EXEC SORT //SYSOUT DD SYSOUT=* // DD SYSOUT=* //BOTH DD DD SYSOUT=* //SORTJNF1 DD * 50338 789997580026.00 36052910 DF 96.12 50338 789997580026.00 36052910 DF 96.12 50338 789997580026.00 36052910 DF 95.12 50318 789997580026.00 36052910 DF 95.12 50318 789997580026.00 36052911 DF 95.12 50318 789997580026.00 36052911 DF 95.12 //SORTJNF2 DD DSN=T01.RXVD.PULL,DISP=SHR--> O/p from the above step //SYSINDD * JOINKEYS FILES=F1,FIELDS=(1,37,A),SORTED,NOSEQCK JOINKEYS FILES=F2,FIELDS=(1,37,A),SORTED,NOSEQCK REFORMAT FIELDS=(F1:01,80,F2:01,92,?) OPTION COPY JOIN UNPAIRED,F1,F2 OUTFIL FNAMES=BOTH, INCLUDE=(173,1,CH,EQ,C'B'),BUILD=(1,80) /* output file generated 50338 789997580026.00 36052910 DF 96.12 50338 789997580026.00 36052910 DF 96.12 50338 789997580026.00 36052910 DF 95.12 The above o/p generated based on the sample file is correct, but I am not sure whether the summarization done in the first step is correct. Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort job to get price variance records
Ok Kolusu, will remove dfsort tag from subject line . Thanks again for providing the steps. Here is what i have done //STEP03 EXEC SORT //SORTIN DD * 50338 789997580026.00 36052910 DF 96.12 50338 789997580026.00 36052910 DF 96.12 50338 789997580026.00 36052910 DF 95.12 50318 789997580026.00 36052910 DF 95.12 50318 789997580026.00 36052911 DF 95.12 50318 789997580026.00 36052911 DF 95.12 //SORTOUT DD DSN=T01.RXVD.PULL, //SPACE=(CYL,(50,50),RLSE),VOL=(,,,99), //DISP=(NEW,CATLG,DELETE) //SYSINDD * SORT FIELDS=(1,37,CH,A) OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(1,37),PUSH=(81:65,10)), IFTHEN=(WHEN=(64,10,CH,NE,81,10,CH),OVERLAY=(92:C'P')) OUTFIL FNAMES=SORTOUT,REMOVECC,NODETAIL, INCLUDE=(92,1,CH,EQ,C'P'), SECTIONS=(1,64,TRAILER3=(1,64,COUNT=(EDIT=())),65,10) /* O/p Generated 50318 789997580026.00 36052910 DF 1 50318 789997580026.00 36052911 DF 2 50338 789997580026.00 36052910 DF 3 I am not sure whether this o/p is correct . Also for the Joinkeys . This below is what i have coded JOINKEYS FILES=F1,FIELDS=(1,37,A),SORTED,NOSEQCK JOINKEYS FILES=F2,FIELDS=(1,37,A),SORTED,NOSEQCK REFORMAT FIELDS=(F1:01,80,F2:01,92,?) OPTION COPY JOIN UNPAIRED,F1,F2 OUTFIL FNAMES=BOTH, INCLUDE=(173,1,CH,EQ,C'B'),BUILD=(1,80) I am getting the o/p as expected , but not sure whether what i have done is completely correct . Could you please check and let me know if the above needs correction ? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
dfsort: Sort job to get price variance records
Hi. We have a FB File LRECL = 80 bytes and here below is the layout. Buy_price is at position 65 of length 10 bytes . We need to pull those item nbrs which has same UPC,Vendor nbr ,State Code but there is price difference. Could anyone let me know how this to be done using dfsort. Input file :- ITEM NUMBER UPC_NBR VendorNbr STATE_CODE BUY_PRICE 50338 789997580026.00 36052910DF 96.12 50338 789997580026.00 36052910DF 96.12 50338 789997580026.00 36052910DF 95.12 50318 789997580026.00 36052910DF 95.12 50318 789997580026.00 36052911DF 95.12 50318 789997580026.00 36052911DF 95.12 Desired o/p 50338 789997580026.00 36052910DF 96.12 50338 789997580026.00 36052910DF 96.12 50338 789997580026.00 36052910DF 95.12 Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort - File split
Thanks a lot Kolusu, this is brilliant!! Thanks to all others also for all of your suggestions . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort - File split
Ron what i am looking is extract from the input file 100 PO's . as i told first 10 bytes of the file is the PO number and each PO can contain one record or multiple records. The idea is to extract 100 PO with the all the PO related information which resides in multiple records. Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort - File split
Ron, I don't need a single record per P.O, what i need is pull 100 P.O in the output file . A P.O will contain multiple records for e.g if each PO has 5 rows then the ouput will be 500. I put something like the below but this is not working SORT FIELDS=COPY INREC IFTHEN=(WHEN=INIT,OVERLAY=(6003:SEQNUM,3,ZD,RESTART=(01,12))) OUTFIL FNAMES=OUT01,INCLUDE=(6003,3,ZD,LT,101),BUILD=(1,6000) OUTFIL FNAMES=LEFTOVER,INCLUDE=(6003,3,ZD,GT,101),BUILD=(1,6000) Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort - File split
Ron . what i need is copy 100 PO numbers details to a new file . One P.O has multiple rows . I don't think that will work Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Sort - File split
Hi . i have FB file with lrecl 5000 and here below is layout. key is first 11 bytes PO number 102016| 31859949 || 1613QTTR| 1 102016| 31859949 || 1613QTTR| 1 102016| 31859949 || 1613QTTR| 1 102016| 31859949 || 1613QTTR| 1 102016| 31859949 || 1613QTTR| 1 102016| 31859949 || 1613QTTR| 1 102016| 31859949 || 1613QTTR| 1 102016| 31859949 || 1613QTTR| 1 104152| 32412273 || 2373QTBO| 1 104152| 32412273 || 2373QTBO| 1 104152| 32412273 || 2373QTBO| 1 104152| 32412273 || 2373QTBO| 1 104152| 32412273 || 2373QTBO| 1 Here i need to pull 100 PO numbers . one PO has multiple rows & hence when we pull all details of one PO should come in the output file. So how in DFSORT this can be done ? Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Appending timestamp to the file
Ok thanks Kolusu. That worked .. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Appending timestamp to the file
Hi . We are appending the timestamp to a CSV file and when we do the same we see the microsecond part is different for all the rows . Is there a way to make it same for all of the rows ? Here below is the control card we used OUTREC PARSE=(%01=(ENDBEFR=C'|',FIXLEN=4), %02=(ENDBEFR=C'|',FIXLEN=9), %03=(ENDBEFR=C'|',FIXLEN=7), %04=(ENDBEFR=C'|',FIXLEN=11), %05=(ENDBEFR=C'|',FIXLEN=2), %06=(ENDBEFR=C'|',FIXLEN=4), %07=(ENDBEFR=C'|',FIXLEN=3), %08=(ENDBEFR=C'|',FIXLEN=2), %09=(ENDBEFR=C'|',FIXLEN=10), %10=(ENDBEFR=C'|',FIXLEN=10), %11=(ENDBEFR=C'|',FIXLEN=05)), BUILD=(%01,C',',%02,C',', %03,C',',%04,C',', %05,C',',%06,C',', %07,C',',%08,C',', %09,C',',%10,C',',DATE=(4MD-),C'-',TIME(24.),C'.',SEQNUM,6,ZD, C',',%11,C',') The o/p we are getting as follows ITBR800X ,IT800X,2019-05-03-11.44.40.01,33 ITBR800X ,IT800X,2019-05-03-11.44.40.02,33 ITBR800X ,IT800X,2019-05-03-11.44.40.03,33 ITBR800X ,IT800X,2019-05-03-11.44.40.04,33 ITBR800X ,IT800X,2019-05-03-11.44.40.05,33 ITBR800X ,IT800X,2019-05-03-11.44.40.06,33 ITBR800X ,IT800X,2019-05-03-11.44.40.07,33 ITBR800X ,IT800X,2019-05-03-11.44.40.08,33 ITBR800X ,IT800X,2019-05-03-11.44.40.09,33 Thanks in Advance Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort (numbering multiples)
Thanks a ton Kolusu .. I was able to work it out. Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort (numbering multiples)
Hi Kolusu, Here is the actual production files data , 102,3522850,15,FF,9 202,3522850,15,FF,9 102016,3522850,15,FF,9 104152,3522850,15,FF,7 104152,3522850,15,FF,9 104760,3521499,15,FF,9 104760,3521499,15,FF,9 106735,3507181,15,FF,9 989898989,3507181,15,FF,9 989898989,3507181,15,FF,9 so the o/p need to be 1,102,3522850,15,FF,9 1,202,3522850,15,FF,9 1,102016,3522850,15,FF,9 1,104152,3522850,15,FF,7 2,104152,3522850,15,FF,9 1,104760,3521499,15,FF,9 2,104760,3521499,15,FF,9 1,106735,3507181,15,FF,9 1,989898989,3507181,15,FF,9 so here if we do a SORT and put a SEQNUM , is it going to work ? we see that in the input file the length of the 1'st column is not same for all of the rows . Please suggest how to address this ? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sort
Thanks Kolusu. Let me look in to that and see how it can be done. Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Sort
Hi . We have a below CSV file and here we need to generate a number in the 1st column based on whether there is duplicates on the 2nd column. 102016,3522850,15,FF,9 104152,3522850,15,FF,7 104152,3522850,15,FF,9 104760,3521499,15,FF,9 104760,3521499,15,FF,9 106735,3507181,15,FF,9 so the o/p need to be as follows 1,102016,3522850,15,FF,9 1,104152,3522850,15,FF,7 2,104152,3522850,15,FF,9 1,104760,3521499,15,FF,9 2,104760,3521499,15,FF,9 1,106735,3507181,15,FF,9 Could someone let me know how this can be achieved in a DFSORT Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort
Brilliant Kolusu ! Many Thanks !! Thanks again for all .. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort
Thanks a lot Massimo ! this is excellent . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort
Correct Elardus, I am awaiting Kolusu reply as to whether this can be achieved using sort. if not, other option is to do using as program . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: dfsort
Kolusu - sorry they should also be picked , we shouldn't be picking item_nbr that have other locations defined which means extract items have only in location "CORPORATIVO" Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
dfsort
Hi - We have a file that is received from a vendor ( item_nbr 10 byes and location 20 bytes) . File is a 80 byte FB record item_nbrlocation 4046340¦CORPORATIVO 4046564¦CORPORATIVO 4046564¦ESTADO 4047131¦CORPORATIVO 4047460¦CORPORATIVO 4047479¦CORPORATIVO Here we need to extract item_nbrs that has only "CORPORATIVO" location and no other location defined . In the example above it should pull 4046340¦CORPORATIVO 4047131¦CORPORATIVO in the output file. If we look 4046564, that is defined for CORPORATIVO and ESTADO so that should not be picked in the o/p file. Could anyone please let me know how to do in DFSORT job Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XML File to MQ
Thanks Grant for the info. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XML File to MQ
Thanks Allan for your thoughts . -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
XML File to MQ
Hi . I am working in one of the data migration projects where are sending item related details to a 3'rd party system . We have around 300K items and we are planning to send through a XML file in 4 batches . One Item has got around 400 lines of information. So our question is it ok to send such huge volume of xml data (75000*400 = 30 Million lines of data). what are the kind of failures we see here ? is this approach good in production environment ? Would like to get some suggestions on this . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: jcl remove leading zeros and spaces
My apologies on not putting the full details . Thanks a lot Kolusu . will try and see how it works. Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: jcl remove leading zeros and spaces
Hi Kolusu, Can you show me how to do the same ? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
jcl remove leading zeros and spaces
Hi . We have a below PIPE delimited file , let me know how to remove the leading zeros and spaces zeros from this file ? 102016|0031859949|00|1613QTTR|1| 1995-11-13|01|8.|C|75| 019.| Thanks in Advance Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
jenkins IDE
Hello . We are planning to implement jenkins in to our QA mainframe environment . Is there any document where i can look and see how to configure our mainframe regions to jenkins . The objective is we should we able to submit jobs and build code from jenkins ? Is there any one in the list who has implemented the same & would be glad to know the pros and cons of moving to jenkins . Thanks in Advance Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL to get a report of large datasets
Thanks everyone for the valuable information . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JCL to get a report of large datasets
Can i get a sample job or so to pull the information based on the high-level qualifier of dataset ? Thanks! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
JCL to get a report of large datasets
Hi . Is there using utility job where i can use it pull all datasets that occupy huge space . Let me know how i can go ahead and do it .? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT Error message
Ok both the statements are working , as i have put the continuation character wrongly . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT Error message
Thanks a lot . it worked ! Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT Error message
I have given as below, but still the issue is there SELECT FROM(SORTIN) TO(SORTF1) ON(16,50,CH) DISCARD(SORTF2) FIRST - USING(CTL1) Thanks, Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
DFSORT Error message
Hello . I am trying to extract unique invoice numbers to a file using DFSORT ,ICETOOL and below is my control card.n The o/p i want to reformat it. I am getting the below error messages. could someone let me know where the issue is ? //TOOLINDD * SELECT FROM(SORTIN) TO(SORTF1) ON(16,50,CH) DISCARD(SORTF2) FIRST USING(CTL1) /* //CTL1CNTL DD * OUTFIL FNAMES=SORTF1,OUTREC=(06,50) OUTFIL FNAMES=SORTF2,OUTREC=(06,50) /* ICE627I 0 DFSORT CALL 0001 FOR SORT FROM SORTIN TO OUTFIL COMPLETED ICE628I 0 RECORD COUNT: 0429362 ICE638I 0 NUMBER OF RECORDS RESULTING FROM CRITERIA: 0097455 ICE602I 0 OPERATION RETURN CODE: 00 USING(CTL1) $ ICE614A 0 INVALID OPERATOR ICE602I 0 OPERATION RETURN CODE: 12 Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: rename datasets
Thanks a lot john . it worked . -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: rename datasets
Thanks John . I am new to Rexx , but just wanted to know how in the below
code, we make sure that only what is in my input file is read and renamed and
not all the datasets under the SLXR5V.SAPDB.* ?
/* REXX */
XX=OUTTRAP('DATA.','*')
LISTC LVL('SLXR5V.SAPDB')
XX=OUTTRAP("OFF")
DO I=1 TO DATA.0
LINE=DATA.I
IF 'NONVSAM' <> WORD(LINE,1) THEN ITERATE /* ONLY WORKS FOR NON-VSAM */
DSN=WORD(LINE,3) /* GET THE DSN */
SUFFIX=SUBSTR(DSN,12) /* STRIP OFF THE FRONT */
NEWDSN='SLXR5V.SAPDB.X'||SUFFIX
"ALTER '"DSN"' NEWNAME('"NEWDSN"')"
END
Thanks
Ron T
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: rename datasets
Also, all of the files that need to renamed is there in a file . We want only those in the file to be renamed . Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: rename datasets
we are looking at renaming all of the datasets like the below. Old dataset - > SLXR5V.SAPDB.* New dataset - > SLXR5V.SAPDB.X.* Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
rename datasets
Hi . We have around 700 datasets where we need to rename the names , is there a utility by which we can run the same in batch ? I believe i can use IDCAMS , but is there a better way to it with less effort ? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SFTP From Linux to z/OS
Thanks for all the inputs , if we code as below is it possible to capture space related issues ? when i tried to give volume parameter it is not allowing , which made me think that script does not allow multi volume allocation . Correct me if i am wrong here ? ls /+mode=text,lrecl=3000,recfm=vb,space=cyl.100.100 put /sap/input/sample.txt //'KG99KVT.FXN.MXCROT.TOT(+1)' quit Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SFTP From Linux to z/OS
Hi Kirk Here is the script & the error message i am getting . Kindly let me know is there anything wrong here ? ls /+mode=text,lrecl=3000,recfm=vb,space=cyl.100.100 put /sap/input/sample.txt //'KG99KVT.FXN.MXCROT.TOT(+1)' quit ls: cannot access /+mode=text,lrecl=3000,recfm=vb,space=cyl.100.100: No such file or directory ./test1.sh: line 2: put: command not found ./test1.sh: line 3: quit: command not found Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
SFTP From Linux to z/OS
Hi . One of my colleagues told me from Linux script ,we can do SFTP using the below file allocation . Just wanted to know whether this possible ? As per my understanding this has no significance ? Also, whether from virtual machine we can put to a tape GDG file ? ls /+mode=text,lrecl=3000,recfm=vb,space=cyl.100.100 put /pas/input/rtb/one.txt //'PCICST.FXIN.MAXRTCRO.OT(+1)' Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
we are looking at copy the file to a GDG, once it reaches the z/OS directory using the below job. so what i am looking is how we can automate this job so once file reaches the unix directory it copies and delete the source ? //COPYSTEP EXEC PGM=IKJEFT01 //FILE DD PATH='/export/home/PX1COMT/test.txt' //PTST DD DISP=SHR,DSN=PTHMICST.TEST.R1.Y(+1) //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * OCOPY INDD(FILE) OUTDD(PTST) TEXT what i am thinking is scheduling the job at different time of the day . is this a good option or there is any other way to do it ? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
Thanks for all the suggestions , Also, i would like to know how we can trigger the copy from the z/OS UNIX directory to a data set as soon the file arrives in the unix directory from the linux VM? Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
The criteria we are planning is the files which are more than 30 days old (Creation Date). Thanks! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
We finally decided to move the files to Z/OS unix , we plan to create a monthly folder to which we push all the files from linux VM. Once the file is there we will move back to GDG's . I have a query here , is there any job which i can use to clean up the files in the z/os unix folder . Please share if any one has the details on this . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
with the modified one like "quote site blocksize=0 lrecl=3000 recfm=fb wrap prim=25 sec=25 cyl" it is showing the same error. Thanks! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
i executed the below script from Linux VM and the below is what it says. Looks like site command is not supported . So any idea on how this could be resolved or is there any work around ? Script --- sftp to1c...@cray.cps.se.com << EOF site blocksize=0 lrecl=3000 recfm=fb prim=25 sec=25 cyl put /sap/co2ekh/backup/global_chgback_escoa_2017-01-22:22:00:10.txt //'CH2ICST.X.Y.R1' quit EOF Log Message sftp> site blocksize=0 lrecl=3000 recfm=fb prim=25 sec=25 cyl Invalid command. sftp> put /sas/co2ekh/backup/global_chgback_escoa_2017-01-22:22:00:10.txt //'CH2ICST.X.Y.R1' Uploading /sas/comtekh/backup/global_chgback_escoa_2017-01-22:22:00:10.txt to //CH2ICST.X.Y.R1 /sap/co2ekh/backup/global_chgback_escoa_2017-01-22:22:00:10.txt 68% 2208KB 1.8MB/s 00:00 ETA Couldn't write to remote file "//CH2ICST.X.Y.R1": Failure Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
Ok what you say is that we can do like the one below . is that what you are referring ? SITE BLOCKSIZE=0 LRECL=133 WRAP RECFM=FB PRI=20 SEC=10 CYL put unix_file.txt 'HLQ.MAINFRAME.FILE(+1)' (replace Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
Ok . i tried to copy a csv file that is there in the shell and i am getting the below message . I tried increasing the LRECL of the PDS file and still the same issue . Any idea on what could be the issue here ? $ cp -T SN_ASC00_03212017.csv "//'ng772pt.X.Y.Z'" cp: FSUM6260 write error on file "//'ng772pt.X.Y.Z'": EDC5003I Truncation of a record occurred during an I/O operation. Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
Ok , in that case if on the mainframe side has a file system setup , then they can send the file and from there we can copy back a PDS location. I need to understand whether there is any limitation on the number of files send or any memory constraints ? is that the best approach ? I am new to this one , if this is the best one i can talk to the system folks for the access and other details . Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
No i haven't thought about that as i am not sure how to do that . Thanks! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
Ok , whaat i am looking is to push the file from LINUX to Mainframe . So, the one below is fine ? SITE BLOCKSIZE=0 LRECL=133 WRAP RECFM=FB PRI=1 SEC=1 CYL delete 'HLQ.MAINFRAME.FILE' put linux_file.txt //'HLQ.MAINFRAME.FILE' Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
Ok. is the below one coded will work from linux LOCSITE BLOCKSIZE=0 LRECL=133 WRAP RECFM=FB PRI=1 SEC=1 CYL delete 'HLQ.MAINFRAME.FILE' get linux_file.txt 'HLQ.MAINFRAME.FILE' (replace Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
So just wanted to understand , whether we can delete the file that is existing and then allocate the file from the virtual machine shell script ? if so how we can do the same , so we can get the correct data in mainframe with out FTP failure issues ? any sample code i can look ? Thanks, Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: FTP Failing with space issues
failing with X37 abends. The file is already allocated one in mainframe . I am not sure whether we can allocate the file from linux virtual machine script ? if possible , how this can be done ? Thanks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
