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: 1394
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 

Similar Topics
Topic Forum Replies
No new posts Sort card to know that creation date ... DFSORT/ICETOOL 10
No new posts Convert CSV to flat file. DFSORT/ICETOOL 6
No new posts Multiple INSPECTS on a big size file COBOL Programming 6
No new posts Create a specific record/file based o... SYNCSORT 8
No new posts using symbolics in the destination fi... All Other Mainframe Topics 12
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