第一貨物 [Mirror]

#11956 と同じような問題あり、
同じように対応が必要。

追加注意点
#11938 のとおり、PRFILEにあたるワークテーブルに
集計データの出力が必要。

途中のソート(IP30030PのIN)が UC40030Pと異なる
IP30020P の IN

//*KEY1:␎発荷主Ｃ＋センター登録日＋受付日＋元着␏                        
//*KEY2:␎販社Ｃ＋デポＣ＋出荷日＋キャリアＣ＋納入先番号＋納品予定日␏    
//SYSIN    DD  *                                                        
  SORT FIELDS=(26,34,CH,A,651,123,CH,A)                                 
/*

26から34byte→ｺﾝｿﾘ KEY
651から123byte→DXMMMCO1.M3CXSORT[コンソリ用ＳＯＲＴ　ＫＥＹ]
→↓中身
1から0001byte→M3C0CPCD[販売会社コード]
2から0002byte→M3C0DPCD[出荷地]
6から0006byte→M3CKEYMD[出荷日（アンダー業者での集荷日）]
2から0002byte→M3C0CRCD[扱便コード（キャリアコード）]
56から0056byte→M3C2MSG2[ドロップ出荷時のＺ宛メッセージ１]
56から0056byte→M3C2MSG3[ドロップ出荷時のＺ宛メッセージ１]

IP30030P の IN

//SYSIN    DD  *                                                        
  SORT FIELDS=(1,7,CH,A,26,34,CH,A,60,3,PD,A,63,3,PD,A)                 
/*

1から7byte→OSUMCOCD[発荷主ード]
26から34byte→OSUMEKEY[ｺﾝｿﾘ KEY]
60から3byte→OSUMSEQU[ｺﾝｿﾘ連番ｺﾝｿﾘKEY ｶｳﾝﾄ]
63から3byte→OSUMCONT[ｺﾝｿﾘ明細連番ｵﾅｼﾞKEYﾃﾞ]

発荷主コードのソートが増えているが、
UC40010Pを見る限り、ｺﾝｿﾘ KEYの先頭が発荷主コードの為、
実質問題無しと思われる。