IBM i備忘録10～PCからFTPをバッチ転送したい。etc…

2019.01.30

◇Q91.PCからFTPをバッチ転送したい。

◇A91.
下記のバッチファイルを作成してください。
<< バッチファイル：BatchFTP.bat >>
FTP -s:C:\FTPcmd.txt

<< FTPcmd.txt >>

  OPEN XXX.XXX.XXX.XXX				
  User				
  Password				
  get				
  quit

OPEN XXX.XXX.XXX.XXX

User

Password

get

quit

<< 上記バッチファイルをAS/400から起動する場合 >>

PGM				
  DCL       VAR(&CMD)  TYPE(*CHAR) LEN(123)				
  CHGVAR    VAR(&CMD)  VALUE('C:\BATCHFTP.BAT')				
  STRPCO    PCTA(*NO)				
  MONMSG    MSGID(IWS4010)				
  STRPCCMD  PCCMD(&CMD) PAUSE(*NO)				
ENDPGM

PGM

DCL VAR(&CMD) TYPE(*CHAR) LEN(123)

CHGVAR VAR(&CMD) VALUE('C:\BATCHFTP.BAT')

STRPCO PCTA(*NO)

MONMSG MSGID(IWS4010)

STRPCCMD PCCMD(&CMD) PAUSE(*NO)

ENDPGM

◇Q92.データベースのタイムスタンプを参照した場合、DSPOBDとＤＳＰＦＤのちがいは？

◇A92.
以下のようになります。
タイムスタンプ DSPOBJD DSPFD

変更日 SAVLIB後に更新するたびにメンバー単位に
最初に更新した日付がセット更新した日付がセット

使用日メンバーのうちで最終使用日が一日に一回
最新ものが使用日になるメンバー単位で更新

使用日数全てのメンバーの使用日が更新されるタイミングで
使用日数の合計メンバー単位で更新

◇Q93.コマンド- CL- RPGのデータタイプの関係は？

◇A93.

COMMAND		CL		RPGⅣ		API
						
*DEC		*DEC		P(パック)		
						
*CHAR		*CHAR		A		CHAR
						
*NAME		*CHAR		A		
						
*SNAME		*CHAR		A		
						
*GENERIC		*CHAR		A		
						
*CMDSTR		*CHAR		A		
						
*DATE		*CHAR(7) CYYMMDD		7A		
						
*TIME		*CHAR(6) HHMMSS		6A		
						
*INT2		*INT(2)または*CHAR(2)		5I		BIN(2)
						
*INT4		*INT(4)またはCHAR(4)		10I		BIN(4)

COMMAND CL RPGⅣ API

*DEC *DEC P(パック)

*CHAR *CHAR A CHAR

*NAME *CHAR A

*SNAME *CHAR A

*GENERIC *CHAR A

*CMDSTR *CHAR A

*DATE *CHAR(7) CYYMMDD 7A

*TIME *CHAR(6) HHMMSS 6A

*INT2 *INT(2)または*CHAR(2) 5I BIN(2)

*INT4 *INT(4)またはCHAR(4) 10I BIN(4)

*INT2：2バイト符号付2進数
CHARタイプから変換は、%BINを使用する。

  DCL  &BIN2   TYPE(*CHAR) LEN(2)			
  DCL  &DEC4   TYPE(*DEC)  LEN(4 0)			
  CHGVAR &DEC4 %BIN(&BIN2)

DCL &BIN2 TYPE(*CHAR) LEN(2)

DCL &DEC4 TYPE(*DEC) LEN(4 0)

CHGVAR &DEC4 %BIN(&BIN2)

*INT4：4バイト符号付2進数
CHARタイプから変換は、%BINを使用する。

　DCL  &BIN4   TYPE(*CHAR) LEN(4)			
　DCL  &DEC8   TYPE(*DEC)  LEN(8 0)			
　CHGVAR &DEC8 %BIN(&BIN4)

　DCL &BIN4 TYPE(*CHAR) LEN(4)

　DCL &DEC8 TYPE(*DEC) LEN(8 0)

　CHGVAR &DEC8 %BIN(&BIN4)

◇Q94.IFSのファイルシステムについて教えてほしい。

◇A94.
ファイルシステム説明

・/(ルート)
Windowsと同様のファイルシステム
ディレクトリとファイル、リンクなどで構成

・QOpenSys
UNIXと同様のファイルシステム
/(ルート)との違いは、大文字・小文字の判別を行う。

・QOPT
CD-ROMやDVDなどの光メディアに保管されたデータにアクセスするためのファイルシステム

・QSYS.LIB
OS/400ネイティブなファイルシステム

・NFS
ネットワーク・ファイル・システム
このファイル・システムにより、リモート NFS サーバーに保管されているデータや、オブジェクトにアクセスできます。 NFS サーバーからネットワーク・ファイル・システムをエクスポートしてから、 NFS クライアントに動的にマウントすることができます。

・QDLS
文書ライブラリー・サービス・ファイル・システム。
このファイル・システムにより、文書とフォルダーにアクセスできます。

・QFileSvr.400
このファイル・システムにより、リモートの AS/400 システムに常駐する他のファイル・システムにアクセスできます。

◇Q95.結合論理ファイルと複合論理ファイルのちがいは？

◇A95.
結合論理ファイル：２つ以上の物理ファイルに基づいて作成され、単一のレコード様式を持ちます。
複合論理ファイル：２つ以上の物理ファイルに基づいて作成され、複数のレコード様式を持ちます。

◇Q96.編集コードの指定方法は？

◇A96.
カンマ表示・印刷値が０の時の表示・印刷符号なし CR 後- 前-
するする 1 A J N
するしない 2 B K O
しないする 3 C L P
しないしない 4 D M Q

◇Q97.ジョブ名の命名規則は？

◇A97.
最初の文字：\ # @ A～Z
残りの文字：\ # @ A～Z 0～9 アンダーバー

◇Q98.バックアップテープから特定メンバーを戻したい。

◇A98.

RSTOBJ OBJ(QRPGSRC) SAVLIB(xxxx) DEVTAP(TAP01) FILEMBR(QRPGSRC メンバーID) MBROPT(*ALL)

1	RSTOBJ OBJ(QRPGSRC) SAVLIB(xxxx) DEVTAP(TAP01) FILEMBR(QRPGSRC メンバーID) MBROPT(*ALL)

◇Q99.メッセージファイルを移行するには？

◇A99.

MRGMSGF FROMMSGF(xxxx) TOMSGF(xxxx) SELECT(メッセージID)

1	MRGMSGF FROMMSGF(xxxx) TOMSGF(xxxx) SELECT(メッセージID)

◇Q100.DDSで定義のフィールド名を検索したい。

◇A100.
QSYS/QADBIFLDを使用します。DBIFLDで検索してください。

古い記事へ新しい記事へ