バージョン 4.2.5
 —  ステートメント  —

UPLOAD PC FILE

ストラクチャードモード構文

UPLOAD
READ

PC

[FILE] work-file-number  [ONCE]    
WORK
 

RECORD operand1  

  [AND] [SELECT]

OFFSET n

operand2
  FILLER nX
  [GIVING LENGTHoperand3]
 

AT [END] [OF] [FILE]

 
  statement  
  END-ENDFILE  
  statement  
END-WORK  

レポーティングモード構文

UPLOAD
READ

PC

[FILE] work-file-number  [ONCE]      
WORK
 

RECORD {operand1 [FILLER nX]}

  [AND] [SELECT]

OFFSET n operand2
  FILLER nX
  [GIVING LENGTHoperand3]
 

AT [END] [OF] [FILE]

statement
  DO statement DOEND
  statement              
[LOOP]                

このドキュメントでは、次のトピックについて説明します。

構文図で使用されている記号については、「構文記号」を参照してください。

関連ステートメント:CLOSE PC FILE | DOWNLOAD PC FILE | READ WORK FILE

関連機能グループ:「ワークファイル/PC ファイルの制御


機能

UPLOAD PC FILE ステートメントは、PC からメインフレーム プラットフォームにデータを転送するために使用します。

以下の項目も参照してください。

Top of page

構文説明

オペランド定義テーブル:

オペランド 構文要素 フォーマット ステートメント参照 ダイナミック定義
operand1   S A G   A U N P I F B D T L C
operand2   S A G   A U N P I F B D T L C
operand3   S               I            

フォーマット C は Natural Connection では無効です。

構文要素の説明:

work-file-number 使用するワークファイルの番号です。 この番号は、Natural に対する定義に従って、PC のワークファイル番号の 1 つに対応している必要があります。
operand1-2
フィールド指定:

operand1 およびoperand2 では、PC からアップロードするフィールドを指定します。 データベースフィールドまたはユーザー定義変数を指定できます。

statement UPLOAD PC FILE 処理で I/O ステートメントを指定することはできません。
ONCE、SELECT、GIVING LENGTH

RECORD

オプション:

ONCESELECTGIVING LENGTH オプションの詳細については、READ WORK FILE ステートメントの説明の中で対応する各セクションを参照してください。

PC ワークファイルには、RECORD オプションは使用できません。 ランタイムに拒否されます。

データをアップロードするときにフィルタを定義する場合、標準のフィルタ表記の代わりにダミー変数を使用する必要があります。

END-WORK UPLOAD PC FILE ステートメントを終了するには、Natural 予約キーワード END-WORK を使用する必要があります。

Top of page

次のプログラムでは、UPLOAD PC FILE ステートメントの使用方法を例示しています。 データは最初に PC からアップロードされ、その後でメインフレームで処理されます。

** Example 'PCUPEX1': UPLOAD PC FILE                                    
**                                                                      
** NOTE: Example requires that Natural Connection is installed.         
** CAUTION: Executing this example will modify the database records!    
************************************************************************
DEFINE DATA LOCAL                                                       
01 EMPL VIEW OF EMPLOYEES                                               
   02 PERSONNEL-ID                                                      
   02 INCOME                                                            
      03 SALARY (1)                                                     
*                                                                       
01 #PID (A8)                                   /* Personnel ID on PC    
01 #NEW-INCREASE (N4)                          /* Increase for salary   
END-DEFINE                                                              
*                                                                       
UPLOAD PC FILE 7 #PID #NEW-INCREASE            /* Data upload        
*                                                                       
  FIND EMPL WITH PERSONNEL-ID = #PID           /* Data selection        
    ADD #NEW-INCREASE TO SALARY (1)            /* Data update on host   
    UPDATE         
    END TRANSACTION
    ESCAPE BOTTOM  
  END-FIND         
*                  
END-WORK           
END               

プログラム PCUPEX1 の出力:

プログラムを実行するとウィンドウが開くので、そこでアップロードするデータが含まれている PC ファイルの名前を指定します。 その後、データが PC からアップロードされます。

Top of page