IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Can BPXBATCH update TAPE file
IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Faizanazam

New User


Joined: 06 Apr 2024
Posts: 10
Location: United States
PostPosted: Fri Jan 24, 2025 12:44 am
 Reply with quote
Hi Sir,

The BPXBATCH SFTP process to get a file from distributed server is able to update Flat file successfully but unable to update TAPE file. The job don't fail just the TAPE file comes out to be empty.

Any suggestion
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1442
Location: Bamberg, Germany
PostPosted: Fri Jan 24, 2025 11:34 am
 Reply with quote
Sample job, sample Output please.
Back to top
View user's profile Send private message
Faizanazam

New User


Joined: 06 Apr 2024
Posts: 10
Location: United States
PostPosted: Fri Jan 24, 2025 1:18 pm
 Reply with quote
Code:
//STEP03   EXEC PGM=BPXBATCH                                   
//STDPARM  DD
    DSN=ABCD.SFTP.CONTROL1(ABC251),DISP=SHR     
//         DD  DSN=ABCD.EFGH.IJK.CONTROL(GET),DISP=SHR 
//STDIN    DD  DUMMY                                           
//STDOUT   DD  DSN=*****.ABC.SFTP.SYSOUT.ABCP2551,             
//             DISP=(NEW,CATLG,CATLG),                         
//             DCB=(RECFM=FB,LRECL=500,BLKSIZE=0),             
//             DATACLAS=MB020E                                 
//STDERR   DD  DSN=ABCMT.ABC.SFTP.SYSERR.ICEP2551,             
//             DISP=(NEW,CATLG,CATLG),                         
//             DCB=(RECFM=FB,LRECL=500,BLKSIZE=0),             
//             DATACLAS=MB050                                   
//SYSPRINT DD  SYSOUT=*                                         


_______________________________

ABCD.SFTP.CONTROL1(ABC251)

 sh SYS=XYZ;                                                 
 JOBNAME=SFTPT;                                               
 LOCALDATASET=XYZ.KITE.****.****.SFTP;             
 LOCALPATH=/***/***/***/sftp/tmp/;                         
 CONFIG=/***/****/****/sftp/.ssh/config;                     
 REMOTEFILENAME=ABC.DEF.GHI.KS007.PRT;               
 GCMD=get                                                     
 SF=""                                                       
 RP=/;                                                       
 CMD2="ls -la $RP"                                           
 CMD3=""                                                     
 CMD4=""                                                     
 CMD5=""                                                     
 CMD6=""                                                     
 CMD7=""                                                     
 CMD8=""                                                     
 CMD9=""                                                     
 CMD10=""       
EOL=bin;     
IMAGE=binary;

________________
ABCD.EFGH.IJK.CONTROL(GET)

SUFFIX=$(date +"%F-%H-%M-%S");                     
rm $LOCALPATH$SYS-$REMOTEFILENAME$SF-*;           
rm $LOCALPATH$SYS-$JOBNAME-*;                     
> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo "$IMAGE"                                     
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo "$GCMD $RP$REMOTEFILENAME$SF                 
$LOCALPATH$SYS-$REMOTEFILENAME$SF-$SUFFIX"         
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo "!cp -F $EOL                                 
$LOCALPATH$SYS-$REMOTEFILENAME$SF-$SUFFIX         
\"//'$LOCALDATASET'\""                             
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo $CMD1                                         
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo $CMD2                                         
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo $CMD3                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD4                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD5                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD6                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD7                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD8                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD9                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD10                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo "!rm $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX"     
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo "!rm $LOCALPATH$SYS-$REMOTEFILENAME$SF-$SUFFIX" 
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo "bye"                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
cat $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
sftp -v -F $CONFIG -b                                 
$LOCALPATH$SYS-$JOBNAME-script-$SUFFIX               
userID@ServerName
                                             
Back to top
View user's profile Send private message
Faizanazam

New User


Joined: 06 Apr 2024
Posts: 10
Location: United States
PostPosted: Fri Jan 24, 2025 1:20 pm
 Reply with quote
Faizanazam wrote:
Code:
//STEP03   EXEC PGM=BPXBATCH                                   
//STDPARM  DD
    DSN=ABCD.SFTP.CONTROL1(ABC251),DISP=SHR     
//         DD  DSN=ABCD.EFGH.IJK.CONTROL(GET),DISP=SHR 
//STDIN    DD  DUMMY                                           
//STDOUT   DD  DSN=*****.ABC.SFTP.SYSOUT.ABCP2551,             
//             DISP=(NEW,CATLG,CATLG),                         
//             DCB=(RECFM=FB,LRECL=500,BLKSIZE=0),             
//             DATACLAS=MB020E                                 
//STDERR   DD  DSN=ABCMT.ABC.SFTP.SYSERR.ICEP2551,             
//             DISP=(NEW,CATLG,CATLG),                         
//             DCB=(RECFM=FB,LRECL=500,BLKSIZE=0),             
//             DATACLAS=MB050                                   
//SYSPRINT DD  SYSOUT=*                                         


_______________________________

ABCD.SFTP.CONTROL1(ABC251)

 sh SYS=XYZ;                                                 
 JOBNAME=SFTPT;                                               
 LOCALDATASET=XYZ.KITE.****.****.SFTP;             
 LOCALPATH=/***/***/***/sftp/tmp/;                         
 CONFIG=/***/****/****/sftp/.ssh/config;                     
 REMOTEFILENAME=ABC.DEF.GHI.KS007.PRT;               
 GCMD=get                                                     
 SF=""                                                       
 RP=/;                                                       
 CMD2="ls -la $RP"                                           
 CMD3=""                                                     
 CMD4=""                                                     
 CMD5=""                                                     
 CMD6=""                                                     
 CMD7=""                                                     
 CMD8=""                                                     
 CMD9=""                                                     
 CMD10=""       
EOL=bin;     
IMAGE=binary;

________________
ABCD.EFGH.IJK.CONTROL(GET)

SUFFIX=$(date +"%F-%H-%M-%S");                     
rm $LOCALPATH$SYS-$REMOTEFILENAME$SF-*;           
rm $LOCALPATH$SYS-$JOBNAME-*;                     
> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo "$IMAGE"                                     
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo "$GCMD $RP$REMOTEFILENAME$SF                 
$LOCALPATH$SYS-$REMOTEFILENAME$SF-$SUFFIX"         
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo "!cp -F $EOL                                 
$LOCALPATH$SYS-$REMOTEFILENAME$SF-$SUFFIX         
\"//'$LOCALDATASET'\""                             
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo $CMD1                                         
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo $CMD2                                         
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;         
echo $CMD3                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD4                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD5                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD6                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD7                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD8                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD9                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo $CMD10                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo "!rm $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX"     
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo "!rm $LOCALPATH$SYS-$REMOTEFILENAME$SF-$SUFFIX" 
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
echo "bye"                                           
>> $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
cat $LOCALPATH$SYS-$JOBNAME-script-$SUFFIX;           
sftp -v -F $CONFIG -b                                 
$LOCALPATH$SYS-$JOBNAME-script-$SUFFIX               
userID@ServerName
                                             



The result in output dataset is empty
Back to top
View user's profile Send private message
View previous topic : : View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 

Similar Topics
Topic Forum Replies
No new posts IGYPG3178-I when compiling a pgm read... COBOL Programming 5
No new posts FileAid move data from two files to o... Compuware & Other Tools 5
No new posts Sorting date into YYYYMMDD, and creat... DFSORT/ICETOOL 13
No new posts To Sort detail records in a file with... SYNCSORT 5
No new posts To Populate Trailer cnt in the file w... SYNCSORT 1
Search our Forums:


Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us