我需要一个从主机数据集(A)插入到不同数据集(B)的数据,从一个特定的列开始。例如,第一个数据集'A‘有以下数据
Command ===>
*****************************
1205271
1205251
6483068
1205257 第二数据集“B”具有以下数据
----+----7----+----8----+----9----+----0----+----1----+----2----+----
********************************* Top of Data ***********************
EMPLOYER FFFF MMMMMMMM TTTT D
EMPLOYER SSSS TTTT D
FEDERAL UUUUUUUUUUU XXX TTTT D
MI STATE UUUUUUUUUUU TTTT D
NN STATE UUUUUUUUUUU TTTT D 最后,数据集B应该如下所示,即数据集'A‘数据已从'105’列开始插入'B‘中。
----+----7----+----8----+----9----+----0----+----1----+----2----+----
********************************* Top of Data ***********************
EMPLOYER FFFF MMMMMMMM TTTT D 1205271
EMPLOYER SSSS TTTT D 1205271
FEDERAL UUUUUUUUUUU XXX TTTT D 6483068
MI STATE UUUUUUUUUUU TTTT D 1205257
NN STATE UUUUUUUUUUU TTTT D 请告诉我你的建议。谢谢阿什什
发布于 2015-07-31 09:05:42
假设要在文件中包含数据的LRECL已经足够长:
Edit your target file
On the command-line `COPY your-source-file`
In the line-command area, put `a ` in the asterisks before for first line of your file
ENTER
Take note of how many lines were copied (look at the line-numbers and calculate if necessary)
Type BNDS in a line-command area
ENTER
Scroll right (usually PF11) to see that your BNDS is not before the end of the final data position that you want
Type the "destructive shift right" edit symbol `)` in block-mode `))` on the first line of your inserted data
Do the same with the last line of your inserted data
After one of the `))` type 104, the number of columns you want to shift column one by (final position, less one)
ENTER
Use the "move line-command symbol" `m` in block mode `mm` and mark the first and last line of the newly inserted data
Use the "overlay line-command symbol" `o` followed by the previously-noted number of lines copied and mark the original first line of your file
ENTER
Job done请记住,只要您已经恢复,就可以在文件是SAVEd之前撤销对它的更改(请记住,END会自动保存该文件)。
Command ===> copy temp Scroll ===> CSR
a***** ***************************** Top of Data ******************************
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
=BNDS> < >
000100 EMPLOYER FFFF MMMMMMMM TTTT D
000200 EMPLOYER SSSS TTTT D
000300 FEDERAL UUUUUUUUUUU XXX TTTT D
000400 MI STATE UUUUUUUUUUU TTTT D
000500 NN STATE UUUUUUUUUUU TTTT D
****** **************************** Bottom of Data ****************************Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
)) 010 1205271
000020 1205251
000030 6483068
))39 0 1205257
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
=BNDS> < >
000100 EMPLOYER FFFF MMMMMMMM TTTT D
000200 EMPLOYER SSSS TTTT D
000300 FEDERAL UUUUUUUUUUU XXX TTTT D
000400 MI STATE UUUUUUUUUUU TTTT D
000500 NN STATE UUUUUUUUUUU TTTT D Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 1205271
000002 1205251
000003 6483068
000004 1205257
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
=BNDS> < >
000100 EMPLOYER FFFF MMMMMMMM TTTT D
000200 EMPLOYER SSSS TTTT D
000300 FEDERAL UUUUUUUUUUU XXX TTTT D
000400 MI STATE UUUUUUUUUUU TTTT D
000500 NN STATE UUUUUUUUUUU TTTT D Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
mm 001 1205271
000002 1205251
000003 6483068
mm 004 1205257
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
=BNDS> < >
o4 100 EMPLOYER FFFF MMMMMMMM TTTT D
000200 EMPLOYER SSSS TTTT D
000300 FEDERAL UUUUUUUUUUU XXX TTTT D
000400 MI STATE UUUUUUUUUUU TTTT D
000500 NN STATE UUUUUUUUUUU TTTT D 然后看起来是这样的(我为我想要的列使用了一个示例值,40):
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
=BNDS> < >
000100 EMPLOYER FFFF MMMMMMMM TTTT D 1205271
000200 EMPLOYER SSSS TTTT D 1205251
000300 FEDERAL UUUUUUUUUUU XXX TTTT D 6483068
000400 MI STATE UUUUUUUUUUU TTTT D 1205257
000500 NN STATE UUUUUUUUUUU TTTT D https://stackoverflow.com/questions/31734255
复制相似问题